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PROLOGO 


La idea de este libro no es la de acopiar una serie de listados de 
programas de juegos para que el lector pueda pasarse horas y 
horas tecleándolos en su Spectrum. En él se pretende enseñar los 
rudimentos de la programación de los juegos utilizando dos herra- 
mientas: Una es el Spectrum, uno de los microordenadores más 
extendidos actualmente en el mercado y la otra es el lenguaje BASIC 
del Spectrum. ¿Por qué el BASIC? La razón es principalmente divul- 
gativa, puesto que es muy bajo el porcentaje de usuarios que cono- 
cen el lenguaje máquina del microprocesador Z80, mientras que la 
mayoría de ellos ya conocen, al menos en parte, el lenguaje BASIC. 
El libro se divide en tres partes fundamentales. La primera, muy 
breve, está dedicada a las técnicas de programación, y en ella se 
explican al principio algunas de las instrrucciones más elaboradas 
del BASIC, dándole al lector algunas ideas de cómo usarlas en 
programas de juegos. La segunda parte es la más extensa y en ella 
se entra de lleno en la programación de los juegos que a su vez he 
dividido en dos grupos: Los juegos inteligentes y los juegos 
gráficos. 

El proceso de la creación de un juego empieza desde el principio, 
es decir, la idea, y va siguiendo una serie de pasos hasta llegar a la 
culminación que es el programa. En el libro se han seguido meticu- 
losamente todos estos pasos para la creación de cada juego. Prime- 
ro se empieza con uno muy sencillo, el NIM para continuar con el 
OTHELLO. Después se introduce el concepto de niveles de pensa- 
miento y se hacen las modificaciones necesarias al programa del 
Othello, para que utilice este nuevo concepto. Yendo un poco más 
lejos, llegamos al «juego del 15», que emplea un truco poco conoci- 
do que consiste en disimular un juego dentro de otro. Esto último 
es muy interesante y se puede aplicar a muchos otros casos e 
incluso permite la invención de juegos nuevos, basados en otros ya 
conocidos. 

Después entramos en los juegos gráficos, con un único juego muy 
completo, llamado FANTASMAS que es una versión del popular 
PAC-MAN. El hecho de que haya un solo juego gráfico es debido a 
que el BASIC es muy lento y la mayoría de los juegos gráficos 
están basados en la rapidez. 

La última parte del libro consiste en una serie de secciones separa- 
das en las que se tocan distintos temas. Entre ellos están: Cómo 


hacer más rápidos los programas en BASIC, cómo presentar atracti- 
vamente los programas, uso de los mandos de juego, etc. 

Quizás los juegos en lenguaje máquina hubieran sido más rápidos, 
pero entonces sólo los entenderían unos pocos. De esta manera el 
que sepa programar en código máquina puede recoger la idea y 
realizar los programas del libro, y el que no lo conozca comprende- 
rá perfectamente la forma en que se realiza un juego. 


ASPECTOS DE LA 
PROGRAMACION EN BASIC 


En esta sección se comentarán algunas de las estructuras más usa- 
das en los programas de juegos, empezando por las más sencillas, 
como pueden ser los contadores o el generador de números aleato- 
rios, y terminando con las más complejas, como son los vectores y 
las matrices. Asimismo se incluye la explicación del funcionamiento 
de algunas instrucciones del BASIC del Spectrum. 


LOS CONTADORES 


Un contador es una variable que se utiliza con un propósito especial, 
como su mismo nombre indica: Contar. El hecho de contar es muy 
simple y es muy utilizado en todo tipo de programas ya sea para 
contar puntos, fallos, posiciones en la pantalla, etc. La implementa- 
ción de un contador es muy sencilla, simplemente hay que sumar a 
una variable el valor del paso que queremos contar. Pruebe a 
escribir: 


10 LET A=1 
20 PRINT A 
30 LET A=A + 1 
40 GOTO 20 


La línea 10 inicializa el contador, es decir, coloca en él el valor 
inicial. La línea 20 actualiza el contador, esto es, le suma el paso 
que hemos elegido. La línea 30 hace uso del contador, en este 
caso, imprimiendo su valor, pero puede haber otros muchos usos: 


10 LET A=0 

20 PRINTAT7,A; " * 
30 LET A=A + 1 

40 GOTO 20 


En este segundo ejemplo, el contador se usa para mover un objeto 
en la pantalla. La línea 40 cierra el bucle del contador y hace que 
éste sea infinito. Es muy corriente que se desee establecer un límite 


| contado, de modo que cuando se sobrepase, el programa proce 
la a realizar otra acción: 


10 LET A=7 

20 PRINT ATSA;¡* * 

30 LET A=A + 2 

40 IF A>30 THEN GOTO 100 
20 GOTO 20 

l0COTRA ACCION 


¿] BASIC nos proporciona una instrucción muy potente para imple- 
nentar los contadores con gran facilidad. Se trata de la instrucción 
“OR...NEXT. Por ejemplo, el programa anterior se escribiría de la 
¡guiente manera utilizando FOR...NEXT: 


10 FOR A=7 TO 30 STEP 2 
20 PRINT ATSA¡ * 

30 NEXT A 

IO0OTRA ACCION 


Los contadores se usan mucho en todos los programas aunque a 
veces están un poco escondidos. Para poner un ejemplo, en el 
programa del Othello los usaremos para contar las fichas que tiene 
cada jugador, para contar las jugadas, para contar las direcciones a 
examinar, para contar las fichas giradas, etc. 


GENERADOR DE NUMEROS ALEATORIOS 


Los generadores de números aleatorios se usan para simular en un 
programa el efecto del azar, como por ejemplo, la tirada de un 
dado, la elección de un número cualquiera, el lanzamiento de una 
moneda, etc. El BASIC posee una instrucción que genera automáti- 
camente un número entre O y 1 sin llegar a alcanzar nunva el valor 
1. Se trata de la instrucción RND. Veamos cómo funciona, escriba: 


10 PRINT RND 
20 GOTO 10 


Esto hará que se impriman en pantalla muchos números entre O y 
1. Si nosotros queremos los números entre O y 10, por ejemplo, 
sólo tenemos que multiplicar RND por 10: 


10 PRINT RND*10 
20 GOTO 10 


El problema está en que los números salen con decimales, pero no 
debemos preocuparnos, ya que disponemos de la instrucción INT 
que nos convierte un número decimal al entero inmediatamente 
inferior. Si además no queremos que salgan del O al 10 sino del 3 
al 13 sumaremos 3 al valor modificado de RND: 


10 PRINT 3+INT(RND* 10) 
20 GOTO 10 


En general, para obtener números aleatorios entre dos números 
enteros N y M usaremos la siguiente fórmula: 


10 PRINT N+INT(RND*(M—N)) 


Para poner algún ejemplo de la utilización combinada de contadores 
y de números aleatorios vemos estos dos pequeños programas que 
simulan la tirada de 5 dados y el lanzamiento de 8 monedas 
respectivamente: 


10 REM TIRADA DE 5 DADOS 
20 FOR I=1 TO 5 

30 LET TIRADA=1+INT(RND*6) 
40 PRINT TIRADA 

50 NEXT I 


10 REM LANZAMIENTO DE 8 MONEDAS 

20 FOR I=1 TO 8 

30 LET M=INT(RND*2) 

40 IF M=0 THEN PRINT "HA SALIDO CARA" 
50 IF M=1 THEN PRINT "HA SALIDO CRUZ” 
60 NEXT 1 


La sentencia REM proviene de la palabra inglesa REMARK que signi- 
fica comentario. Esta sentencia no se ejecuta y solamente sirve 
para dar una información, de lo que hace el programa, a la persona 
que ve el listado. Esta información es de gran importancia, sobre 
todo en los programas que no se vuelven a revisar hasta que ha 
pasado un período de tiempo considerable. En los programas del 
libro las sentencias REM se utilizan sobre todo para informar de la 
misión que tienen las subrutinas del programa, así corno para sepa- 
rar unas rutinas de otras. 


LOCALIZACION Y MOVIMIENTO DE OBJETOS EN PANTALLA 


El Spectrum posee una instrucción muy potente que se utiliza para 
saber qué carácter se encuentra en la pantalla en una posición 
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determinada. Se trata de la instrucción SCREEN$ que tiene como 
parámetros las dos coordenadas de la posición que queremos 
examinar y que proporciona como resultado una cadena, que contie- 
ne el carácter que se encuentra en esa posición. Su formato es: 


SCREEN$(X, Y) 


Para ver como funciona, teclee el siguiente programa que lo que 
hace es guardar la última línea de la pantalla en una cadena. Para 
comprobar su funcionamiento, escriba primero algún texto en la 
última línea de la pantalla (PRINT AT 21,0; «texto...». 


10 LET A$=" aquí escriba 31 espacios en blanco 
20 FOR I=0 TO 31 

30 LET A$()=SCREEN$(21,1) 

40 NEXT 1 


Si después de ejecutar este programa borra la pantalla con CLS, la 
última línea habrá desaparecido, pero simplemente haciendo PRINT 
A$ reaparecerá, aunque en otra posición. El problema que tiene 
SCREENS es que no sirve para los gráficos definidos por el usuario, 
o al menos, no se puede usar con facilidad sin cambiar una variable 
del sistema para que apunte a los gráficos definidos y aun así 
presenta algunos problemas, ya que después no aparecen los carac- 
teres normales. Para solventar este problema disponemos de la 
instrucción ATTR, que se usa con la misma sintaxis, pero que pro- 
porciona un número compuesto por los atributos de la posición: 
Color del papel, color de la tinta, brillo, inverso y parpadeo. 

Para mover un carácter en la pantalla simplemente hay que impri- 
mirlo en una posición, cuidando antes de borrarlo de la posición 
anterior en que se había impreso. Como ejemplo sencillo puede 
servir el segundo programa de este capítulo que se refería a los 
contadores. 

Otra instrucción muy interesante es la instrucción INKEY$ que es 
en realidad una función que proporciona el carácter del teclado que 
se está pulsando en ese momento. Veamos un ejemplo en que la 
instrucción INKEY$ se usa para controlar las teclas del cursor, con 
objeto de hacer un dibujo en la pantalla: 


10 LET X=128 

20 LET Y=88 

30 PLOT X, Y 

40 IF INKEY$="" THEN COTO 40 
50 LET A$=INKEYS$ 

60 IF A$="5" THEN LET X=X-1 
70 IF A$="6" THEN LET Y=Y+1 
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80 IF A$="7" THEN LET Y=Y-—] 
90 IF A$="8" THEN LET X=X+1 
100 GOTO 30 


¿Le parece extraña la línea 40? Esto se hace porque la instrucción 
INKEY$ no se espera a que usted pulse una tecla, sino que el 
programa «pasa de largo» en caso de que no lo haga. Otra utilidad 
de INKEY$ es que con ella se pueden pedir datos que consten de 
una sola letra sin que sea necesario pulsar ENTER una vez se haya 
terminado. 


CONJUNTOS 


Como nos enseñaron cuando íbamos a la escuela: «un conjunto es 
una reunión de elementos». En el ordenador también podemos 
tener conjuntos de variables. La ventaja de disponer de ellos, es 
que el nombre de-sus elementos consta de la misma letra, variando 
sólo los números que le siguen. Este tipo de conjuntos, también 
son llamados vectores o matrices. Llamaremos dimensión de una 
matriz, al número de cifras que son necesarios para determinar uno 
de sus elementos. Dado que las matrices pueden ocupar mucha 
memoria, es necesario avisar al ordenador de que vamos a utilizar- 
las. Para ello se usa la instrucción DIM. Por ejemplo la sentencia: 
DIM a(7) creará una matriz de 1 dimensión (las matrices de una 
dimensión también se llaman vectores) con 7 elementos, cuyos 
nombres son: 


a(1) a(2) a(3) a(4) a(5) a(6) a(7) 


En cambio, la instrucción DIM C(4,3) creará una matriz de dos di- 
mensiones con 12 (3x4) elementos: 


C(1,1D) 20,2) C(1,3) 
C(2,1) C(2,2) C(2,3) 
CQ,1) C(,2) CR) 
C(4,1) C(4,2) C(4,3) 


Una de las grandes ventajas de la utilización de matrices reside 
precisamente en el hecho de que cada elemento se designa con el 
mismo nombre, variando sólo los números encerrados entre parén- 
tesis. Gracias a ello se puede evitar un trabajo muy penoso en la 
programación de la entrada de datos de un número elevado de 
variables, utilizando contadores. Veamos, como ejemplo, un progra- 
ma que efectúa la entrada de datos por el teclado de una matriz de 
20x30 (¡¡tiene 600 elementos!!): 
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10 DIM A(20,30) 

20 FOR I=1 TO 20 

30 FOR J=1 TO 30 

40 INPUT A(1,)) 

50 PRINT "A"¡1,J"= "¡A(,J) 
60 NEXT J 

70 NEXT 1 


Si esto mismo se hubiera hecho usando variables sencillas se ha- 
brían tenido que teclear 600 líneas de programa con la instrucción 
INPUT. Las matrices se usan para muchas cosas, una de las más 
importantes para nosotros será la de representar tableros de juego. 
Pongamos por ejemplo un tablero de ajedrez. Está claro que podrá 
ser representado por una matriz de 8x8. Para que cada casilla 
represente una ficha debemos determinar una norma. Por ejemplo 
haremos que las fichas blancas sean números cuya primera cifra es 
1, y para las negras, su primera cifra será 2, utilizando además el 
siguiente convenio. 


1 peón 

2 alfil 

3 caballo 

4 torre 

5 dama 

6 rey 

0 casilla vacía 


Así por ejemplo la pieza 23 es un caballo negro. 

En este caso, no hay necesidad de pedir los valores de la matriz 
por teclado, ya que como queremos representar un tablero al princi- 
pio de la partida, ya sabemos la posición que ocupan las piezas. En 
estos casos es muy adecuada la instrucción READ, que siempre 
está relacionada con las instrucciones DATA y RESTORE. 

El formato de la instrucción READ es el siguiente: 


READ variable o también 
READ varl. var2...........VarN 


Lo que hace esta instrucción es buscar una determinada línea DATA 
en la que se encuentran una o varias constantes, leerla y colocar el 
valor leído en la variable de la instrucción READ. Este proceso es 
secuencial, con ello quiero decir, que cada instrucción READ lee un 
dato de una línea DATA, luego, el siguiente READ lee el siguiente 
dato y así sucesivamente. Cuando se termina una línea DATA se 
continúa con la siguiente, y si no hay suficientes se produce un 
error. Para poder cambiar esta secuencia tenemos la instrucción 
RESTORE, cuyo formato es: 
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RESTORE número de línea 


Esto hace que la siguiente instrucción READ lea de una línea DATA 
concreta. Si se suprime RESTORE se empieza por el primer DATA 
que haya en el programa. Con todo esto, el programa para llenar 
una matriz que haga la función de tablero de ajedrez, quedaría de 
la siguiente manera: 


10 DIM T(8,8) 

20 DATA 24,23,22,25,26,22,23,24 
30 DATA 21,21,21,21,21,21,21,21 
40 DATA 0,0,0,0,0,0,0,0 

50 DADA 0,0,0,0,0,0,0,0 

60 DATA 0,0,0,0,0,0,0,0 

70 DATA 0,0,0,0,0,0,0,0 

80 DATA 11,11,11,11,11,11,11,11 
90 DATA 14,13,12,15,16,12,13,14 
100 FOR I=1 TO 8 

110 FOR J=1 TO 8 

120 READ T(,J) 

130 NEXT J 

140 NEXT I 


Para terminar con este capítulo introductorio, me gustaría dar algu- 
nos consejos para una programación cómoda y sin problemas. De 
entrada cuando vaya a realizar un programa, lo primero que debe 
hacer es alejarse lo más posible del ordenador, coger papel y lápiz, 
y retirarse a un lugar tranquilo donde pueda pensar con claridad. Al 
principio piense sólo en la idea principal del programa y no se 
preocupe en absoluto de la presentación ni de las otras pequeñas 
cosas que se le puedan ocurrir. Una vez hecho esto, desarrolle su 
idea sobre el papel. Para esto existen muchos métodos, uno de los 
cuales se explica en el capítulo siguiente y consiste en dibujar un 
diagrama y en escribir el programa en pseudo-lenguaje antes de 
codificarlo en BASIC. Desentiéndase de problemas secundarios de 
la idea principal y considere que ya están resueltos, luego ya los 
revisará uno por uno. Si no lo hace así, se encontrará con que cada 
uno de estos problemas secundarios le distrae de la idea principal, 
de manera que cuando ha resuelto uno ya ha perdido el hilo del 
«núcleo» del programa. Con esto termina este capítulo y entramos 
de lleno en la programación de los juegos. 
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JUEGOS INTELIGENTES 


Cuando se oye hablar de juegos inteligentes, uno piensa siempre 
en el ajedrez, que es un programa realmente complicado por la 
gran cantidad de combinaciones que existen en el juego. Un juego 
inteligente es, en general, aquel en el que el ordenador compite 
contra el usuario, y recibe el nombre de inteligente porque el orde- 
nador es capaz de «pensar» su jugada e incluso de derrotar al 
contrincante. En definitiva, son todos aquellos juegos en los que el 
ordenador imita o intenta imitar la habilidad mental que tienen las 
personas con el objeto de ganar una partida. 

Aunque no lo parezca, el factor tiempo es de gran importancia en 
este tipo de juegos, ya que son interactivos y hay que buscar un 
método de modo que no sea necesario repasar todas las posibilida- 
des para ejecutar una tirada. De todos modos el tiempo de respues- 
ta hay que ahorrarlo en el momento de diseñar el sistema de razo- 
namiento del programa, y no hay que reparar en él, cuando el 
desperdicio de tiempo se da en beneficio de una mejor claridad del 
programa, es decir, de la estructuración. 

Antes de empezar con un pequeño programa de ejemplo es intere- 
sante remarcar una serie de aspectos comunes en la programación 
de este tipo de juegos: 


CONOCIMIENTO DEL JUEGO 


Lo primero de todo, y lo más importante es que para programar un 
juego de esta clase, hay que saberlo jugar si no muy bien, por lo 
menos con una gran seguridad, si usted no sabe lo suficiente puede 
servirle de gran ayuda el consejo de una persona experta. En defini- 
tiva se trata de conocer las jugadas más corrientes, las posiciones 
más ventajosas y también las posibles respuestas del contrario en 
situaciones especiales, así como el desarrollo y las fases de que se 
compone una partida. 


DISEÑO DE LA ESTRUCTURA. 
ORGANIGRAMA 


El paso siguiente consiste en diseñar lo que se llama organigrama 
que no es más que un gráfico de la estructura del juego. Este paso 
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es muy importante y habrá que prestarle especial interés a la parte 
en la que el ordenador se «piensa» su jugada, pues de ello depende 
la calidad del juego. En este punto es donde hay que calibrar por 
un lado el tiempo de respuesta del ordenador, y por el otro lo 
buena que es su jugada. Por lo tanto, dentro de este apartado, o en 
el siguiente habrá que especificar claramente el método seguido 
por el ordenador para elegir su mejor jugada, hay muchos métodos 
generales pero aquí hablaré de dos, uno muy simple que consiste 
en la generación aleatoria de jugadas que se pueden pasar por 
varios filtros para conseguir la mejor, y el otro que se llama algorit- 
mo (1) alfa-beta, que es capaz de tener en cuenta las posibles 
respuestas del adversario. 

El diseño de esta estructura es gráfico, ya que de este modo permi- 
te ver con claridad la línea general del programa y para ello se 
emplean unos símbolos más o menos estandarizados que dan una 
indicación del tipo de proceso que se sigue. Para que no haya lugar 
a dudas voy a explicar ahora mismo en qué consisten estos 
símbolos: 


Este símbolo nos indica que hay un 
proceso de entrada de datos. En su 
interior se escribe una palabra que dé 
una idea del dato o los datos que se 
van a introducir en ese momento. 


El rectángulo indica un proceso que 
puede ser más o menos complicado, 
NOMBRE en su interior se escribe el nombre del 
PROCESO proceso que a su vez puede constar 
de un diagrama tan largo como el del 
propio programa, pero de esto ya ha- 
blaremos más adelante. 


El rombo nos indica que en ese punto 
del programa hay que tomar una deci- 
sión, esto se consigue mediante la 
vo S/ comprobación de una condición. Del 
rombo parten dos líneas que van a pa- 
rar a dos sitios distintos, una al proce- 
so que debe ejecutarse si la condición 
se verifica, y la otra al proceso que 
debe ejecutarse en caso contrario. 


Este símbolo nos indica que en este 
punto del programa tiene lugar una 
salida de datos. El sistema de identifi- 
cación es el mismo que para el de la 
entrada de datos. 


18 


La línea nos indica la dirección que 
sigue el proceso, y queda claramente 
especificada por el sentido de la fle- 


cha. 
, Por último este símbolo se usa para 
PRINCIPIO indicar el principio o el fin del progra- 
ma. Es útil realmente en los casos de 
FIN programas que tengan más de un pun- 


to de entrada o de salida. 


AFINACION O DISEÑO ARRIBA-ABAJO 


Una vez realizado el diagrama del programa se sigue un proceso 
de afinación. Esto consiste en especificar claramente en qué consis- 
te cada uno de los procesos, es decir de los símbolos que se usan 
en el diagrama, lo cual se puede hacer a su vez usando estos 
mismos gráficos ya que con ellos se pueden especificar todos los 
casos posibles que se puedan dar. Esto se hace hasta que el proce- 
so esté tan bien definido que ya se pueda escribir un pseudo-progra- 
ma, es decir, un programa en un lenguaje corriente que luego ya 
sólo tendremos que traducir al BASIC. Todo esto se verá con más 
claridad al desarrollar los ejemplos. 


ESCRITURA DEL PROGRAMA 


Una vez se tiene escrito el programa en este lenguaje comprensible 
que hemos llamado pseudo-lenguaje, se escribe el programa sim- 
plemente traduciendo al BASIC. Por ejemplo, una instrucción en 
pseudo-lenguaje, podría ser: 


PREGUNTA QUIEN EMPIEZA 
y su traducción al BASIC del Spectrum sería algo así: 


30 INPUT "Quieres empezar? (S/N)'¡a$ 
40 IF a$<>"S" AND a$<>"N" THE GOTO 30 
50 IF a$="S' THEN GOTO . 


Está claro que será más fácil modificar un programa, si previamente 
lo tenemos escrito en pseudo-lenguaje, ya que al traducirlo a BASIC 
nos encontramos con que una simple instrucción como puede ser 
una pregunta no se traduce directamente en una sentencia INPUT, 
sino que hay que hacer unos filtrados de la respuesta, escoger la 
variable, etc. 
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Todos estos pasos van encaminados a conseguir que el programa 
tenga los menos errores posibles y a que en caso de que los haya 
sea fácil de depurar y de corregir, incluso si ha pasado mucho 
tiempo desde que se escribió. 
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UN EJEMPLO SENCILLO: NIM 


Para empezar con un ejemplo sencillo lo haremos con un juego 
llamado NIM, también conocido por «el juego de los palillos». Du- 
rante el desarrollo del programa seguiremos todos los pasos expli- 
cados. Una vez terminado, continuaremos con un juego más com- 
plejo que desarrollaremos más a fondo. Tanto en el uno como en 
el otro, no se presta excesiva atención a la presentación por dos 
razones: La primera porque ya se dedica un capítulo especialmente 
a este tema y la segunda porque puede distraernos del objetivo 
principal, que es, en este caso, que el ordenador juegue y... ¡Que 
juegue bien! 


DESCRIPCION DEL JUEGO 


Se tienen una serie de objetos, por ejemplo, un número indetermi- 
nado entre 10 y 50. De ellos hay que ir retirando por turnos una 
cantidad no superior a 5 cada vez y el jugador que retira el último 
pierde. Con la particularidad de que es obligatorio retirar al menos 
1 objeto. Si pensamos detenidamente en el juego observaremos 
que tiene la particularidad de que quien empieza, si juega bien, 
puede ganar seguro. ¿Por qué? Pues bien, pensemos: En primer 
lugar si en la última jugada, le dejamos al contrario menos de 7 
objetos, por ejemplo 4, él retirará 3, y nosotros nos tendremos que 
quedar con el último, pero si en cambio le dejamos exactamente 7, 
él como mucho puede retirar 5, con lo cual quedarán 2, entonces 
retiraremos 1 y él se quedará con el último. En caso de que le 
dejemos más de 7, por ejemplo 10, entonces él puede retirar 3 y 
dejarnos a nosotros con 7, con lo cual perderíamos. Por tanto, es 
cuestión de intentar dejar al contrario con 7 objetos, así tenemos la 
partida ganada. Pero... ¿Cómo podemos conseguir dejarle con 7? 
Pues bien, habiéndole dejado previamente con 13, ya que en este 
caso, como que él tiene que retirar un número de objetos compren- 
dido entre 1 y 5, nosotros siempre encontraremos un número menor 
que 5 que lo deje a él con 7 objetos. Si continuamos razonando del 
mismo modo observaremos que el siguiente número interesante de 
objetos es 19, el siguiente 25, etc. Es decir, que los números siguen 
la siguiente tónica: 1, 146, 1+6+6, 14+6+6+6, etc. Si suponemos 
que el contrario es un jugador perfecto, sólo podremos perder en 
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dos casos: Cuando empiece él y la cantidad de objetos no sea una 
de las mencionadas o bien cuando ocurra que aunque empecemos 
nosotros, tengamos la mala suerte de que el número de objetos a 
retirar sea del tipo 14+6xX cualquiera que sea X. Por lo tanto, es 
muy fácil hacer un programa que gane siempre. Para evitar esto 
haremos que el ordenador escoja aleatoriamente quién empieza. 


DISEÑO DEL GRAFICO 


Dado que el programa es tan sencillo, el gráfico es también sencillo, 
hasta incluso se podría pensar que no es ni siquiera necesario, 
pero para seguir el método paso a paso lo dibujaremos: 


PRINCI Pio 


GENERA 
NÚMERO 


DECIDE 
DUIEN 
EMPIEZA 


Busca 
LA MEJOR 
JUGADA 


ACEPTA 
TUCADA 


CAMBIO 
pe 
TURWO 


s 


FELICITA 
AL 
GAMADOR 


AFINACION 


El primer proceso consiste en generar un número, que deberá estar 
entre 10 y 50, este número lo colocaremos en la variable N. 
Para decidir aleatoriamente quién empezará a jugar utilizaremos 
también la generación de un número que sólo tenga dos posibilida- 
des, el -1 0 el 1 y lo pondremos en la variable A. 

Para decidir quién empieza sólo habrá que ver el valor de la variable 
A. Si vale —1 empezará el ordenador, y además se presentará en 
pantalla quién juega primero. 

La búsqueda de la mejor jugada no es nada complicada teniendo 
en cuenta todo lo que sabemos del juego. Consiste en buscar un 
número, que restado de N nos dé un número del tipo 14+6xXxX. Si 
alguno es aficionado a las matemáticas observará que el resto de 
dividir N-1 por 6 es el número buscado. Para los que no lo sean 
no es muy difícil buscar todas las posibilidades, puesto que sólo 
podemos escoger entre 5 números para restar, y una vez restados 
de N debe ser igual a alguno de éstos: 1, 7, 13, 19, 25, 31, 37, 42 o 
48, pero evidentemente esta segunda opción es mucho más lenta e 
inadecuada. ¡Imagínese que pudiéramos retirar hasta 20 objetos de 
golpe y que el número de objetos fuera de 1000! En cualquier caso 
también la explicaremos porque servirá para comparar. 

Para la entrada del número de piezas retirado por el jugador sólo 
hay que mirar que se encuentre entre los límites permitidos, es 
decir, que sea mayor que 1 y menor o igual que 5. 

El hecho de restar los objetos es igual para uno que para otro, pero 
habrá que decir los que quedan. 

La comprobación de si se ha terminado el juego simplemente con- 
siste en ver si queda un solo objeto, en caso contrario habrá que 
hacer dos cosas: La primera cambiar de turno, que no es más que 
cambiar el valor de A, y la segunda es ir al lugar del programa en 
que se decide quién tira. 

Si sólo queda un objeto es que alguien ha ganado, y para saber 
quién ha sido sólo tenemos que mirar el valor de la variable A. 
Una vez ya lo tenemos todo especificado, escribimos el programa 
en pseudo-lenguaje: 


GENERA UN NUMERO ENTRE 10 Y 50 (N) 

GENERA UN NUMERO QUE SEA 1 O —1(A) 

*SIA ES —1 HAZ LO SIGUIENTE: 

BUSCA EL RESTO DE DIVIDIR N—1 POR 6 () 

SI TE DA CERO INVENTA CUALQUIER NUMERO ENTRE 1 Y 5 
ESCRIBE LA CANTIDAD QUE RETIRAS () 

SIA ES 1 HAZ LO SIGUIENTE: 

PIDE EL NUMERO DE OBJETOS A RETIRAR () 

COMPRUEBA QUE ESTE ENTRE 1 Y 5 

ESCRIBE DICHO NUMERO (J) 
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RESTA LA TIRADA DE N (N=N—J) 
SIN NO ES 1 HAZ LO SIGUIENTE: 
CAMBIA EL TURNO 

SALTA A * 

FELICITA AL ORDENADOR SI A ES 0 
FELICITA AL JUGADOR SI A ES 1 
TERMINA 


Una vez hecho todo esto la confección del programa consiste sim- 
plemente en una traducción: 


REM AEREA ENARERA RARA 
REM GENERA UN NUMERO 

RARA RARE RARE RARA E 
LET N=INT (40%+RND) +10 


REM ERERAAERE RRA RARA RA AAA 
QUIEN EMPIEZA 
REM AAA RARE RARA AAA RARA AER 


L C=RND 

IF RND<0.S THEN LET A=-1 

IF RND>0.S THEN LET A=1 
PRINT "HAY ";N;" OBJETOS" 
IF A=-1 THEN PRINT "EMPIEZO 


IF A=1 THEN PRINT "EMPIEZAS 


239 REM 

100 REM REEL 
1905 REM DECICE QUIEN JUEGA 

110 REM Ree AAA 
115 REM 

117 IF A=-1 THEN 60 SUB 300: RE 

MH ORCENACOR 
120 IF A=1 THEN 60 SUB 900: REM 


0-40 DUNA OOOO EA de 
256 GGUEO-JORAUIGAAAEA 
D 
m 
z 


CUGADOR 

128 REM 

130 REM REE EARAAAEAAEA AR 
140 REM RESTA NUMERO 

150 REM 3H 
150 REM 

170 LET N=N-.1 

175 PRINT AT 19,15;" l 
139 PRINT AT 10,15; "QUEDAN "¡N 
200 REM 

210 REM REE REFEARERE RARA 
215 REM MIRA SI HA TERMINADO 
220 REM reir rr ARA AAA 
230 REN 

240 IF N=1 THEN 60 TO su 

250 LET A=A*-1 

270 60 TO 100 

2299 REM 

300 REM 3% 
310 REM FELICITACIONES 

320 REMÓ ¿ir RARA 
339 REM 
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330 IF _A=1 THEN PRINT "ML BIEN 
, HAS GANADO" 
0 IF A=-1 THEN PRINT “LO SIEN 


REM 

REM Rx rre rre 
REM TIRADA DEL JUGACOR 

REM Rx Ar rirrrrrdrirA 


INPUT "CUANTOS _RETIRAS ",3J 
IF J>S OR Jxl OR N-J<1 THEN 
TO_ 3959 
Y RETURN 


T HE GANADO" 

Q >TOF 

Q REM 

2 REM exi rr. 

5 REM TIRADA DEL ORDENADOR 

ba 4 EXEXLLEARERA RE RENAL 

S LET COCIENTESINT (IN-1) 6) 

0D LET RESTO=N-1-COCIENTE+5 

S IF FRESTO=0 THEN LET RESTO=1 
WN (RNCES1 +1 

30 LET ¿.1=RESTO 

3 BEER ,1,25: PRINT AT 2,15;" 
RETIRO "; 

0 RETURN 

[a] 

Pa] 

Pa] 

[5] 

0 

Q 

Ps] 


LOA AA LO 0 05 Fs 00 A 00 06 0 00 CS 00 CO 0% 4 HL 
DO JTRONENMNERBERS MUNURPRROAA-)- LN 


COMENTARIOS SOBRE EL PROGRAMA 


En la línea 50 se genera un número entre 10 y 50. Esto se consigue 
con la instrucción RND que genera un número entre O y 1, si lo 
multiplicamos por 40 nos queda entre O y 40, al sumarle 10 el 
número estará entre 10 y 50 sin alcanzar nunca este último valor, 
ya que RND no alcanza tampoco el valor 1. Para ver quién empieza, 
se pone en A el valor 10 —1 utilizando la misma instrucción RND 
(línea 58). Se han utilizado dos subrutinas, una para la jugada del 
ordenador, y otra para la del jugador (líneas 800 y 900 respectiva- 
mente) al jugador, se le impide que diga un número que no está en 
el rango 1-5 así como que pierda retirando la última ficha sin querer 
(línea 970). En la jugada del ordenador se calcula el resto de dividir 
N-1 por 6 (líneas 815 y 820) si este resto da Y quiere decir que 
estamos ante un número de la forma 14+6XxX con lo cual el ordena- 
dor tiene las de perder, en este caso, dada la imposibilidad de 
conseguir la mejor jugada, el ordenador retira cualquier número 
entre 1 y 5 (línea 825). 

En el programa hay gran cantidad de líneas REM que son comenta- 
rios que no se ejecutan. Estos comentarios van muy bien cuando 
se quiere retocar el programa después de que haya transcurrido un 
tiempo desde que se escribió. Consultar el capítulo dedicado a 
programación. 
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EL OTHELLO: UN JUEGO DE VERDAD 


El Othello es un juego de origen oriental que se ha puesto de moda 
en los últimos años. De él haremos dos programas, que se diferen- 
ciarán únicamente en la parte más importante: el modo en que el 
ordenador piensa su jugada. En el primero, el ordenador sólo se 
fijará en la mejor posición a la que puede tirar, mientras que en el 
segundo haremos uso del algoritmo alfa-beta, que le permitirá tener 
una visión «de futuro» cuando realice su jugada. Para ello explicare- 
mos a fondo en qué consiste este algoritmo antes de empezar con 
el segundo programa. 

Por el momento vamos a por la descripción del juego, que es el 
requisito indispensable para poderlo programar. 


DESCRIPCION DEL JUEGO 


El Othello se juega en un tablero de 8x8 cuadrados sin distinción 
alguna entre ellos, es decir, que todos son del mismo color. Hay 64 
fichas iguales pero con una particularidad, por una cara son blancas 
y por la otra son negras. Cada jugador escoge un color al principio 
de la partida, y el objetivo final es tener más fichas de su color al 
final de ésta. Para ello, en cada jugada se coloca una ficha en el 
tablero, de modo que aprisione a una o varias fichas del contrario 
entre dos de las propias y en cualquier dirección. A las fichas que 
hayan sido aprisionadas, se les cambia la cara, con lo cual pasan a 
tener el color del jugador. 

La partida empieza con 4 fichas situadas en el tablero de la siguien- 
te forma: 


Nosotros en lugar de emplear colores blanco y negro emplearemos 
círculos y equis. A partir de esta disposición, el jugador que empie- 
ce ya puede tirar. Veamos algunos ejemplos de tiradas para salir de 
dudas. En los tres ejemplos que siguen tenemos a la izquierda una 
disposición inicial, en donde se señala con un punto, el lugar donde 
se tirará la ficha (siempre «X») y a la derecha está situado el mismo 
tablero pero con la ficha ya jugada y habiendo ya realizado los 
cambios de cara necesarios: 


|| IxJO[x[X[ | | 
| IxJOJO[Xx[ | | 


| JOJO[x[x[X] | | OR 
Us1O! olx] [x|X[x[X]X|<[X]X 
EE 
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Otra regla importante del juego es que si en el turno de un jugador, 
éste no puede colocar su ficha en alguna posición en que gane 
fichas del contrario, el jugador pierde su turno. Es decir, que se 
está obligado a ganar fichas, si no no se puede tirar. 

Con esto creo que quedan claras las reglas del juego, ahora vamos 
a ver cómo podemos desarrollar una estrategia que juegue lo sufi- 
cientemente bien. 

Si pensamos en una ficha cualquiera situada en el tablero, observa- 
remos que durante el desarrollo de la partida, puede cambiar mu- 
chas veces de bando, excepto en el caso de que esa ficha esté 
situada en una esquina ya que una vez allí ya no se la puede 
aprisionar entre dos fichas enemigas. Por tanto, es muy interesante 
conseguir las esquinas. También se ve claramente que las fichas 
colocadas en los laterales sólo pueden ser aprisionadas en una 
dirección, y además sirven de base para girar las fichas del 
adversario. 

Hay que tener muy en cuenta que las posiciones adyacentes a las 
esquinas son muy malas, incluyendo las dos laterales, pues pueden 
dar oportunidad al adversario de conseguir las esquinas. Por la 
misma razón, son bastante buenas las posiciones que están a dos 
lugares de una esquina porque hacen que el adversario tenga la 
posibilidad de tirar en una posición adyacente a la esquina lo cual 
como ya hemos explicado, sería malo para él. Esto aún tiene más 
importancia hacia el final de la partida, ya que quedan menos posi- 
ciones libres para tirar. En el gráfico siguiente aparecen las posicio- 
nes del tablero con un número situado encima. Estos números van 
del 8 al 1 y establecen una puntuación para cada casilla basándose 
en los criterios mencionados (a mayor puntuación, mejor es la 
casilla). 


El número de fichas que se consiguen en una jugada no es un 
factor excesivamente importante al principio de la partida, pero va 
adquiriendo importancia hacia el final. Otro factor importante es el 
número de fichas que nos puede girar el contrario en su respuesta 
pero de esto ya hablaremos más adelante. 

Vamos a empezar a trabajar en el primer programa de los dos que 
haremos para el Othello. En este primer programa, que será más 
complicado que el del juego del NIM, sólo tendremos en cuenta la 
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posición que sea más ventajosa. Es decir, que para seleccionar la 
mejor jugada del ordenador haremos lo siguiente: 

1. Le introduciremos al ordenador todas las casillas del tablero, 
ordenadas de mayor a menor puntuación según el gráfico. 

2. Examinaremos la casilla que tenga mayor puntuación, y si se 
puede tirar en ella lo haremos. En caso de que no se pueda tirar, ya 
sea porque esté ocupada o porque no se pueda girar ninguna ficha 
del contrario entonces examinaremos la siguiente que tenga mejor 
puntuación. 

Para ello empezaremos por confeccionar un organigrama del juego, 
primero muy general, para irlo afinando poco a poco. Un gráfico 
general del desarrollo del juego podría ser algo como esto: 


PRINCIPIO 
OLX DENADOR PUIPD 
TVEGA 
MS 
HUMANO 
JUGADA 
HUnANVO 
HA 
TERMINADO 
PARTIDAS, 
TUGADA 
ORDENADOR 
HA 
TERMIVADD 
SQKTIDA 2 
Si 


PARTIDA 
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Este primer diagrama es muy general y nos va a servir para los dos 
programas que haremos, e incluso hubiera servido para el programa 
del NIM. Ahora vamos a especificar qué es lo que hace cada proce- 
so para poder desglosar cada uno. Para ello se han incluido unos 
números en la parte inferior izquierda de cada proceso, que servirán 
de referencia para su posterior desglose. 


INICIALIZACION 


Consiste en todo lo que se debe hacer antes de empezar a jugar la 
partida: 


— Dibujar el tablero. 

— Introducir en una variable el orden de las casillas según su 
puntuación. 

— Visualizar en pantalla la posición inicial. 

— Poner el contador de fichas «X» en 2 

— Poner el contador de fichas «O» en 2 

— Visualizar los contadores. 

— Visualizar unas pequeñas instrucciones. 


Este proceso no necesita de ningún gráfico que lo represente, pues 
ya es lo suficientemente claro. 


PARA DECIDIR QUIEN EMPIEZA 


Para decidir cuál de los dos jugadores empieza, se puede hacer 
aleatoriamente como en el juego del NIM, o bien darle la oportuni- 
dad de decidirlo al propio jugador. En este juego optaremos por 
esta segunda posibilidad, por lo tanto sólo habrá que hacer una 
pregunta y evitar que se den respuestas incoherentes. 


JUGADA DEL JUGADOR 


Este proceso puede ser muy elaborado dependiendo de los contro- 
les que se quieran imponer. Como datos de entrada de la jugada 
sólo están las dos coordenadas del tablero en que se quiere situar 
la ficha. Seguidamente hay que controlar si esa tirada es posible. 
Para hacer esto se deben verificar tres cosas: Primero que las coor- 
denadas que se den correspondan al tablero. Luego que la casilla a 
la que se tira no esté ya ocupada por otra ficha. Por último habrá 
que ver si tirando en esa casilla se consigue aprisionar por lo menos 
una ficha del contrario, ya que si no no se puede tirar ahí. Una vez 
realizados todos estos controles, hay que poner la ficha en el table- 
ro y cambiar de bando las fichas aprisionadas. Por último habrá 
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que actualizar los contadores de las fichas que tiene cada uno y 
pasarle el control a la jugada del contrario, en este caso el 
ordenador. 

Hay que tener en cuenta el caso de que el jugador no pueda tirar 
porque no haya ninguna casilla en la cual pueda girar fichas del 
contrario. Para ello se debe prever una respuesta especial (por ejem- 
plo «V») que le indique a la máquina que no puede tirar y le pase el 
control al siguiente proceso. Para que el jugador no haga trampas 
la veces es interesante no tirar en una jugada, por ejemplo cuando 
sólo se puede tirar en un sitio que permitirá al contrario coger una 
esquina) habrá que comprobar esto antes de pasar el control. En 
caso de que no sea cierto se emitirá un mensaje y se volverá a 
pedir la jugada. Si por el contrario es cierto habrá que guardarlo en 
alguna variable para luego poder ver si se ha terminado la partida. 
Este apartado, dado que es ms complejo que el anterior, lo represen- 
taremos en un gráfico de la siguiente manera: 


PRINCIPIO 
PRESUVTA 
TUGADA 
<> VERDAD? 


$/ 
ES 
CORRECTA? 
EFECTUAR 
TIRADA 


TUGADA 


s/ 
ERROWEA PVE pes 


TIRAR 


RECORDAR 
S/ 44 PoDi- 
DO TIRAR 
ovo 
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El gráfico es muy general ya que no profundiza en los procesos de 
hacer la tirada y de controlar si es correcta. De estos dos procesos 
haremos la afinación más adelante porque veremos que son comu- 
nes con la jugada del ordenador. 


¿HA TERMINADO LA PARTIDA? 


Una partida de Othello puede terminar de dos formas. La primera 
se da cuando el tablero está lleno y para saberlo sólo hay que 
mirar los contadores de fichas que se van actualizando en cada 
jugada comprobando que no superen el valor 64 ya que es el total 
de fichas que caben en el tablero. La segunda es que ninguno de 
los dos jugadores pueda tirar, que es muy infrecuente, para ello 
habrá que tener en cuenta si la jugada del tirador ha sido uno O (no 
puede tirar) y la del contrincante anterior también. Este trozo del 
programa es igual en las dos partes en que aparece dentro del 
diagrama principal. 


JUGADA DEL ORDENADOR 


La jugada del ordenador es la parte central del programa. De este 
proceso depende que el programa juegue bien o mal. En este primer 
programa se hará una elección puramente posicional, de manera 
que el proceso quedará bastante simplificado y tardará poco tiempo. 
Como contrapartida tenemos que no jugará tan bien como el segun- 
do, en el que haremos búsquedas a varios niveles. El método será 
el siguiente: Recordemos que en la inicialización hemos almacenado 
por oden (de mayor a menor) las casillas del tablero según la pun- 
tuación que les habíamos asignado previamente. Pues bien lo pri- 
mero que haremos es ver si podemos tirar en la primera casilla, 
que es la mejor. Si no se puede probaremos con la segunda y así 
sucesivamente hasta que se encuentre una casilla en la que sea 
posible tirar. Esta casilla cumplirá la condición de que es la mejor 
posición (siempre según el criterio anteriormente comentado) a la 
que se puede tirar. Una vez se tiene la casilla sólo hay que efectuar 
la tirada, actualizar contadores y pasar el control al contrario. Puede 
darse el caso de que no se pueda tirar en ninguna de las casillas, 
entonces se emitirá un mensaje y se guardará un «0» como última 
jugada del ordenador para luego comprobar si ha terminado la 
partida: (NJ es la abreviación de «número de jugada»). 
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PRINCIPIO 


BUSLA 
JUGADA NIT 


OCUPADA ? 


T/¡ENE 
FICHAS ENEMI 
SAS ADYACENTES EN 
ALGUWA D/- 
Recc/ón ?, 
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MI=NJ= A 


ÚLTIMA 
TUGA DAL 


RECUER DA 
pve no HA 
PODIDO TIRAR 


FINAL DE PARTIDA 


Consiste simplemente en averiguar quién ha ganado, emitir un men- 
saje de felicitación y terminar el programa. Este apartado tampoco 
es tan complicado como para hacer un gráfico. 

Una decisión importante que hay que tomar antes de empezar a 
programar e incluso antes de escribir el pseudo-programa consiste 
en separar el programa principal de lo que serán las subrutinas. 
Para ello se debe tener en cuenta cuáles son los procesos que se 
repiten más o que es conveniente separar por razones de compren- 
sión del programa. Las subrutinas se pueden estructurar en niveles 
de modo que una subrutina de nivel superior llama a otra de nivel 
más bajo. A la vista del diagrama principal no se ve ninguna subru- 
tina, pero cuando se observan los diagramas de los procesos de las 
jugadas, tanto del humano como del ordenador se hace patente la 
necesidad de una subrutina que compruebe si una jugada es correc- 
ta. Esta subrutina se usará tanto en la jugada del ordenador, como 
en la del humano. A esta subrutina la llamaremos COMPRUEBA 
POSIBILIDAD. Como también se ha previsto la verificación de que 
el jugador humano no puede tirar, la subrutina COMPRUEBA POSI- 
BILIDAD será usada por otra que la llamaremos MIRA SI ES VER- 
DAD. Por lo tanto, COMPRUEBA POSIBILIDAD es una subrutina de 
segundo nviel. También se necesitará otra subrutina que ejecute la 
tirada ya que se usará para los dos jugadores. La llamaremos TIRA. 
Ahora es el momento de pensar en cómo se solucionarán algunos 
problemas como por ejemplo el saber si necesitaremos una tabla 
interna que haga de tablero. Esto no será necesario puesto que al 
no hacer profundización de las jugadas el tablero lo tendremos en 
pantalla y para saber qué ficha está en cada casilla sólo tendremos 
que usar SCREENS. 

Con objeto de acortar palabras a la hora de escribir el pseudo-pro- 
grama, nos será de gran utilidad dar los nombres de las variables 
más importantes que se vayan a utilizar: 

A$: Contendrá el carácter que represente a la ficha del jugador que 
esté jugando en ese momento. Este carácter siempre será «0» para 
el humano o bien «X» para cuando juegue el ordenador. 

ES: Es el carácter de la ficha del jugador enemigo en un momento 
determinado. Siempre lo contrario de A$. 

H$(60),V$(60): Cada una de ellas contendrá sesenta números de 
una cifra (los ponemos en una variable de cadena porque así 
ahorran espacio, si no ocuparían cinco veces más). En H$ están las 
coordenadas horizontales y en V$ las verticales de todas las posicio- 
nes del tablero que quedan por tirar (64 menos las 4 del inicio) 
ordenadas de mejor a peor. Ejemplo: La quinta mejor casilla a la 
que se puede tirar tendrá por coordenadas X=VAL V$(5) e Y=VAL 
(HS(5). 

X,Y: coordenadas de la casilla que se quiere jugar en un momento 
determinado. 
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X1,Y1: Coordenadas de la casilla que se está examinando en un 
momento determinado. 

J: Variará de 1 a 8, y nos indica una dirección de tablero. Asociado 
a cada J tenemos 4 números: Los dos primeros nos indican qué 
cantidad debemos sumarle a las coordenadas de un punto para 
obtener la siguiente casilla que está en la dirección determinada 
por J. Estos dos números estarán en las variables IX e IY (incremen- 
to de X e incremento de Y). Y los dos segundos nos dan los valores 
límite que pueden alcanzar las coordenadas X e Y de una casilla si 
nos desplazamos en la dirección determinada por J. Estos dos nú- 
meros estarán en las variables FX y FY. 

0(8,2): En esta variable, para cada dirección posible (8), tenemos 
almacenadas 2 coordenadas que serán las que nos marcarán hasta 
donde podemos girar fichas desplazándonos en esa dirección. 

UJO: Valdrá O si en la última jugada del ordenador, éste no ha 
podido tirar. Servirá para averiguar si se ha dado uno de los posibles 
finales de partida junto con UJH. 

UJH: Idéntico que la anterior pero para el jugador humano. 
CONTX: Contará las fichas «X» que hay en el tablero. 

CONTO: Contará las fichas «O» que hay en el tablero. 

Comentarios sobre las variables: La variable 0(8,2) no tiene sentido 
si no están fijadas unas coordenadas a partir de las cuales empeza- 
remos a girar fichas hasta llegar al límite que nos marca para cada 
dirección la variable 0(8,2). 

Vamos ahora a escribir el programa en pseudolenguaje: 


PROGRAMA PRINCIPAL 


INICIALIZA TODO 
PREGUNTA QUIEN EMPIEZA 
SI EMPIEZA HUMANO VES A H: 


O:--JUGADA ORDENADOR- 

FICHA AMIGA="X", ENEMIGA="0" 
BUSCA LA MEJOR JUGADA 

SI NO HAY JUGADAS POSIBLES VES A H: 
APUNTATE UNA FICHA MAS 

TIRA 

MIRA SI ES FINAL DE PARTIDA 


H:—JUGADA DEL HUMANO— 

FICHA AMIGA="0", ENEMIGA="X" 
PREGUNTA COORDENADAS 

SI NO PUEDE TIRAR MIRA SI ES MENTIRA Y: 
SI ES MENTIRA VUELVE A H: 
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SI NO LO ES VES A O: 
COMPRUEBA JUGADA 

SI NO ES BUENA VES A H: 
APUNTATE UNA FICHA MAS 
TIRA 

MIRA SI ES FINAL DE PARTIDA 
—FIN— 


SUBRUTINAS 


—COMPRUEBA POSIBILIDAD— 

PARA CADA UNA DE LAS OCHO DIRECCIONES HAZ: 

SI ESTAS AL FINAL DEL TABLERO EXAMINA OTRA DIRECCION 
SI ENCUENTRAS UNA VACIA EXAMINA OTRA DIRECCION 

SI ENCUENTRAS UNA ENEMIGA HAZ: 

BUSCA LA PROXIMA FICHA AMIGA EN ESA DIRECCION Y 
GUARDATELA PARA LUEGO. i 

ALMACENA QUE LA JUGADA ES BUENA. 

—FIN— 


—BUSCA JUGADA— 

ESCOGE LA PRIMERA JUGADA DE LA LISTA 

COMPRUEBA SI ES POSIBLE 

SI NO ESCOGE LA SEGUNDA Y ASI SUCESIVAMENTE HASTA 
QUE ENCUENTRES UNA. 

—FIN— 


—MIRA SI ES VERDAD— 

BUSCA JUGADA 

SINO LA ENCUENTRAS ALMACENA QUE NO ES MENTIRA 

SI LA ENCUENTRAS ALMACENA QUE ES MENTIRA Y DI DONDE 
PUEDE TIRAR 

—FIN— 


—TIRA— 

IMPRIME LA FICHA JUGADA EN LAS COORDENADAS 
CORRESPONDIENTES 

PARA CADA DIRECCION HAZ: 

MIRA SI SE PUEDEN GIRAR FICHAS EN ESA DIRECCION 
SI NO SE PUEDE CAMBIA DE DIRECCION 

SI SE PUEDE: 

GIRA LAS FICHAS HASTA ENCONTRAR UNA ENEMIGA 
PARA CADA UNA QUE GIRES AUMENTA EL CONTADOR DE 
LAS AMIGAS Y DISMINUYE EL DE LAS ENEMIGAS 
IMPRIME LOS CONTADORES 

—FIN— 
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—MIRA SI ES FINAL— 

MIRA SI EL TABLERO ESTA LLENO Y SI LO ESTA VES A FINAL 
DE PARTIDA 

MIRA SI NINGUNO DE LOS DOS PUEDE TIRAR Y SI ESTO 
OCURRE VES AL FINAL DE PARTIDA 

—FIN— 


—FINAL DE PARTIDA— 
ENCUENTRA AL GANADOR 
FELICITALO 

TERMINA EL PROGRAMA 
—FIN— 


—INICIALIZACION— 

DAR LOS VALORES A LAS CASILLAS 

DIBUJAR EL TABLERO CON SU POSICION INICIAL 
INICIALIZAR EL CONTADOR DE JUGADAS 
INICIALIZAR LOS CONTADORES DE PUNTOS 
—FIN— 


A la vista del programa en pseudo-lenguaje, ya se puede pasar a 
escribir el programa en el BASIC del Spectrum. El listado del progra- 
ma contine muchas líneas de comentario (setencias REM) para faci- 
litar su comprensión y su relación con el pseudo-programa: 


49 10 515 5400. REM INICIALIZA 
“39 NE AS EMPEZAR? 1S¿N 
30 IF ES OR rá="s" THEN 60 


36 REM EXE AREAAEA 
37 REM TIRADA DEL ORDENADOR 
39 REM Rx 3x% 


40 LET A5= LET Eg="x" 
50 LET me E 
50 LET_x=UAL MA(1,PRi: LET Y=U4 


[2 PA 
70 GO SUB 3000 
30 IF Ck=0 NES e THEN LET 
FR=PR+1: 560 TO 
32 IF OK=0 AND or 50 THEN PRIN 
T_AT 20,0;"NO PUEDO TIRAR, HAZLO 
TU": BEEP 3,-5: PRINT AT 20, a;' 


50 TO 1000 

35 LET contb=contb+1 

390 0 SUB 70009 

109 IF contn+conmtb=54 THEN 60 5 
UB 9500 

990 REM 

991 REM RRA 
9392 REM TIRADA DEL JUGADOR 
993 REM ¿eE 
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LET AS="X": LET ES="0" 
INPUT “UERT ISA Lor 7x 
IF X=8 THEN_GO_TO 48 
INPUT “HORIZONTAL: ";Y 
PRINT AT 29,8;" 


GO 3UB 3000 
IF OK=0 THEN PRINT AT 20,0, 
UGADA ERRONER": BEEP 2,-10: 
0 1010 
LET contn=contn+1 

uva 


pe contn+contbz=z64 THEN GO 3 
O TO 40 

E 

E 


be Perrerr 
ae Qlurro 


34 Dip SZOGUIGOEEE PAUSADA ATACOS OSOS 


gu 


Mo EREFERAEREA RARA RARA 
EM EJECUCION DE LA TIRADA 
El ÉXAREEAEERE RARA AA REA 


E 

RESTORE solo 

iy,Fx,fy 

)=0 THEN SS TO 7200 
LET Yiz= 

+ix: Len Yli=41l+iu 
1) AND yi1=01(¡,2) 
PRINT AT x1,41, 


mo" THEN LET contb=co 
lu] 


AMB PUDIERA) 000 


DG” 
3 0 
“UD 
27D 
HA 
Sa 
pu 
T 
y 
pus 
yes 
mn 
ñ 
pa] 
pa 
PP 
Pb 
Tu 


G0 TO 7050 

NEXT j 

RETURN 

REM 

REM EXA AAA AEREA 
REM COMPROBACIÓN POSIBLIDAD 
REM FRA RAR ARA ERA 


UI EDO RR RR PRA PIDIO? -Jo ss 


O 5200 
LET xlzx+ix: LET Yli=y+iu 


SOBERANO SES AAA 


09 6409 00 14 09 00 04 O 0 04 06 09 106 06 09 00 dd + dd dd US Ad 4 O A NS dd dd dd 00 O O DR CA A A 65 


Pu) 

Pa] 

1] 

Po] 

1 

2 

3 

4 REM 

0 RESTORE sala 

0 CATA 1,0,8.,0 

1 CATA 01,08 

2 CATA 0,-1,0,1 

3 CATA -1,0,1,U 

4 DATA 1,1,3,3 

S CATA -1,-1,1.,1 

8 CATA 1,-1,.5,1 

? DATA -1,1,1,39 

9 CIM o 13,21: LET ok-=0 
Y FOR ¡=1 TO 3 

YD READ ix,194.,FXx.fy 

E IF x=fx OR y=fy THEN 50 To 
E IF SCREENS (xX,Y1<:%" “ THEN 
1] 


DO 
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5070 IF SCREENS [(x1,41)=e$ THEN 
G0 SUB 3500 


5200 NEXT y 

3250 RETURN 

3300 LET xlzx1l+ix: LET yl=4Y1+i1Y 
3310 IF SCREENS (x1,41)="ME" THEN 
RETURN 

3315 an SCREENS (x1,u1)= TREN 
RETUR 

O E SCREENS (x1.41l1=3% THEN 
LET Gk=1: LET 0ofa,1i=x1: LET ati 
¿21=Y1: RETURN 

3330 0 TO a300 

3990 REM 

3991 REM RRA rr rix 
3992 REM INICIAL IZACIOÓN 

3923 REM 33% 
3934 REM 

3000 PRINT AT 2-2; "INIA - 
2010 FOR iz=1 TO 3: pon AT o; 
A Mii: NEX 

39020 PRINT AT ERA "ripear: 
39030 PRINT AT 14, "123458673" 
qq PRINT AT 4,4 A Ox" ¡ATI5S,)4;Ux 
ae 

9045 DIM m$(2,60) 

9050 LET m$1(1)="1351513561335535 
41581543556435346457223277420357 
712182877272" 

39050 LET m4(2)='"33111615633833635 
343451154353465562775367436257224 
123771232772" 

23050 LET contb=2: LET contn=2 
3090 PRINT AT 9,19;"YO: "¡conte 
39100 PRINT AT 11,19; "TU: *";contn 
39110 PRINT AT 4,4;'"0x" 

3120 PRINT AT 5,4; "xXx0" 

3130 RETURN 

3490 REM 

9500 REM exi: 
95109 REM FINAL DE PARTIDA ? 
9520 REM REA ARA 
9525 REM 

NS IF contn+contb<>64 THEN RET 
9540 IF contn>contb THEN PRINT A 

T 17,0; "MUY BIEN, HAS GANADO": B 
EEP 109,8: STOP 

95509 IF contn<contb THEN PRINT A 

T_17,0;"LASTIMA, HAS PERDIDO": B 
EEP S,-34M: STOP 

39990 FOR l|=1 TO 3: PRINT AT 1,20 
¡0(1,1);0(1,2): NEXT L 
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COMENTARIOS SOBRE EL 
PROGRAMA DEL OTHELLO 


La variable de cadena m$ tiene dimensiones 2Xx60 y en ella están 
contenidas las casillas del tablero. En m$(1) están las primeras coor- 
denadas, y en m$(2) las segundas coordenadas. El orden en el que 
están corresponde al orden de su puntuación, de mejor a peor. 
Las dos subrutinas más importantes son las llamadas «COMPROBA- 
CION POSIBILIDAD» y «EJECUCION DE LA TIRADA». La subrutina 
«COMPROBACION POSIBILIDAD» empieza en la línea 8000 y realiza 
las siguientes funciones: 


— Comprueba que se pueda tirar en la posición que viene determi- 
nada por las coordenadas que están en ese momento en las varia- 
bles X e Y. 

— Actualiza la variable O(8,2) con unos valores que le indicarán a la 
subrutina «EJECUCION DE LA TIRADA» hasta qué ficha tiene que 
girar para una dirección determinada. 

— En caso de que se pueda tirar coloca el valor 1 en la variable OK. 


Esta subrutina es muy independiente y para realizar estas funciones 
hace los siguientes pasos: En primer lugar (línea 8020) coloca la 
variable OK a O así como la variable 0(8,2) ya que al ser dimensiona- 
da en este punto del programa su valor es todo ceros. Para compro- 
bar que se puede tirar en una casilla determinada, tiene que ver 
que al menos para una de las direcciones puede girar fichas enemi- 
gas. Para ello se hace un examen para cada dirección, esto es, un 
bucle cuyo principio está en la línea 8030 y su final en la línea 8200. 
En este bucle, la variable J nos indica la dirección en la que que 
estamos mirando, que viene determinada por los valores que se 
han leído en la línea 8040. Estos valores, que están en las sentencias 
DATA de las líneas 8010 a 8017 son 4 para cada dirección y son: ix, 
que nos indica en cuánto debemos incrementar la primera coorde- 
nada para movernos una casilla en esa dirección, ¡y que es el incre- 
mento de la segunda coordenada; fx, que nos indica qué valor 
toma la primera coordenada cuando hemos llegado al final del 
tablero en esa dirección y por último fy, que es lo mismo para la 
segunda coordenada. Una vez leídos los valores, se mira si estamos 
en un extremo del tablero para esa direción (línea 8050), y si esto 
ocurre, ya podemos pasar a examinar otra dirección. Luego se mira 
si la casilla ya está ocupada (línea 8055). Seguidamente se avanza 
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una casilla en esa dirección (línea 8060), y se comprueba que haya 
una ficha contraria (línea 8070). Si no la hay podemos pasar a la 
siguiente dirección (línea 8200), pero si la hay, debemos examinar 
si en la misma dirección, pero más adelante, encontramos otra 
ficha de nuestro bando pero sin ningún cuadrado vacío entremedio. 
Esto se hace en la subrutina que empieza en la línea 8300. En ella 
se avanza otra casilla (línea 8300) y se comprueba que no estemos 
al final del tablero (línea 8310), que no esté vacía (línea 8315) y por 
último, si encontramos una ficha de nuestro bando, colocamos un 
1 en la variable OK conforme la casilla es correcta y en la variable 
O las coordenadas de la casilla en que se encuentra esa ficha de 
nuestro bando. 

Esta rutina es quizás la más complicada del programa e incluso se 
puede mejorar para ganar tiempo. Por ejemplo, se puede colocar la 
línea 8055 fuera del bucle, ya que si la casilla está ocupada no hace 
falta mirarlo 8 veces. 

Para comprender las líneas DATA más claramente obsérvese el 
gráfico que viene a continuación en el que aparecen las casillas 
numeradas según la posición PRINT que ocupan en la pantalla: 


ananarartara 
24/22/23 |24|25[26|2> [28 
31/32|33|34|35|36|3|38 
uz | v3 | |4 [46]? |ve 
¡51/52 [53 [sv |5s [se|s7 |5% 
6102 | 63 |ev|6s| 6667168 
+4 [72 [73 [9475 [26|77 [> 
64/22 |33 [94/05 26/87 |38 


Observemos las flechas en diagonal que nos indican una dirección 
a examinar. La línea DATA que corresponde a esa dirección es la 
8016 que contiene los número 1,—1,8,1 ya que para avanzar en esa 
dirección tenemos que sumarle 1 a la primera coordenada y restarle 
1 a la segunda. Y además siempre que se llega al final del tablero 
en esa dirección encontramos un 1 en la primera coordenada O un 
8 en la segunda. Quiero remarcar que se llega al final tanto si se 
encuentra un 1 en la primera coordenada como si se encuentra un 
8 en la segunda, por eso en la línea 8050 tenemos un OR y no un 
AND y las dos condiciones a la vez sólo se cumplirían en el caso de 
llegar a la esquina. También por eso cuando las direcciones no son 
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diagonales alguno de los dos últimos datos contiene un O ya que 
no importa para nada saber si hemos llegado al final. 

La subrutina «EJECUCION DE LA TIRADA» recoge los datos de la 
variable O para saber qué fichas tienen que girar. Actúa del siguien- 
te modo: Primero imprime en la casilla correspondiente una ficha 
del bando que juega (a$), y luego realiza, al igual que la otra, un 
examen para cada dirección utilizando las mismas líneas DATA, 
aunque no usa las dos últimas variables y mira en la matriz o en 
las variables correspondientes a esa dirección, para ver si hay que 
girar alguna ficha (línea 7040) si no hay que hacerlo, pasa a exami- 
nar otra dirección. En caso contrario va avanzando casillas en esa 
dirección y girándolas (línea 7070) hasta que llega a la última que 
hay que girar, que es la que está en la matriz o, en la fila correspon- 
diente a la dirección (línea 7060). Por cada ficha girada incrementa 
o decrementa los contadores correspondientes y luego los imprime 
en pantalla (línea 7074 a 7110). 

En este programa faltan algunos filtros a las respuestas e incluso a 
las jugadas, pues habría que comprobar que cuando el oponente al 
ordenador introduce un 0 como respuesta está diciendo la verdad, 
es decir, que realmente no puede tirar. El siguiente programa contie- 
ne estos filtros y supongo que no le costará mucho al lector añadir- 
los a éste. 
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EXAMINANDO EN PROFUNDIDAD: 
BUSQUEDA POR NIVELES 


Si usted no había jugado antes al Othello, quizás le habrá costado 
un poco ganar al programa anterior, pero estoy seguro de que 
tarde o temprano lo habrá conseguido, y más, conociendo el méto- 
do que se sigue para la elección de las jugadas. El principal defecto 
del programa es que no tiene en cuenta sus posibles respuestas y 
aunque él escoja una buena posición, quizás con otra jugada, habría 
evitado una buena posición del adversario. Otro aspecto que no se 
tiene en cuenta es el del número de fichas que se ganan en una 
jugada, pero está claro, que con esta estructura no se puede tener 
en cuenta pues aunque en una jugada consiga girar muchas fichas, 
el adversario las puede volver de su color en la jugada siguiente. 
Con esto llegamos a un punto en el que se tiene la imperiosa 
necesidad de examinar las posibles respuestas del contrario a una 
jugada del ordenador. Este libro no sería suficiente ni siquiera para 
dar una visión general de lo mucho que se ha profundizado en el 
tema pero se intentará explicar un método que nos ayude a ello. 
Lo primero que vemos es que a una jugada del ordenador le pueden 
seguir muchas del adversario y cada una de ellas puede tener a su 
vez muchas respuestas del ordenador. Esto se da en todos los 
juegos de dos personas. La profundidad con la que se investiga 
una jugada se llama nivel. Es decir, si nosotros analizamos las 
respuestas posibles a cada una de las jugadas que podemos hacer 
en un momento determinado, estaremos examinando a nivel 2. 
Esto se ve mejor si representamos las jugadas en un árbol en el 
que las ramas son las jugadas, y las posiciones obtenidas son los 
nudos: 
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Pta 


PA 


T4 T2 Té TN 
PA e AN RN a RN PN 
NIVEL 4 
TAA TIN 7641 
Tie 
Pr -- AN PA P22--- hh P2N P61  - -- PEN NIVEL 2 
JT 
sl 
P614 e Petz h Pei MIVEL 3 
7 
16423 
P6124 P6122 PE423 d-- Pere NIVEL Y 
. 761233 
PE€1233 MWELS 


Como se ve en el dibujo, partiendo de una posición inicial PO pode- 
mos realizar varias jugadas J1, J2,........ JN que se corresponden con 
las ramas que parte de PO. Cada una de estas jugadas nos hace 
llegar a una posición. Así la jugada J1 nos lleva a la posición P1, la 
jugada J2 a la posición P2, etc... A su vez, desde la posición P1 el 
contrario puede responder con varias jugadas, la J11, la J12..., que 
nos llevan a las posiciones P11, P12, etc., y desde la posición P2 
puede realizar otras jugadas, cuyo número puede ser distinto, J21, 
J22, etc., que nos llevan a otras tantas posiciones P21, P22, P23... 
Esta notación simplifica mucho el proceso ya que si en un momento 
determinado, estamos refiriéndonos por ejemplo a la posición 
P61233 ya sabemos que es una posición de quinto nivel, ya que a 
la P le siguen 5 números y que se llega a ella después de haber 
hecho nuestra jugada J61233, en respuesta a su jugada J6123, que 
a su vez respondía a nuestra jugada J612 que se efectuó contestan- 
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do a su J61, que respondía a nuestra J6 y que ésta partía de la 
posición PO. 

Lo que nosotros buscamos es cuál de las posibles jugadas de nivel 
uno es mejor para responder en un momento determinado del 
juego. Para ello se puede asignar una puntuación a cada posición. 
Esta puntuación se asignará siguiendo a su vez un método muy 
estricto. La forma de evaluar una posición depende de cada juego 
en particular, por ejemplo en el caso del Othello, se tendrá en 
cuenta el lugar que ocupa la ficha tirada (si es bueno o no lo es 
según el criterio ya explicado) y también el número de fichas que 
se giran. Esto no es exactamente dar un valor a la posición, sino 
dar un valor a la jugada, aunque ambas cosas estén íntimamente 
relacionadas. 

En el programa de Othello que se explica más adelante, se puntúan 
las jugadas, y no las posiciones. Para puntuar las posiciones habría 
que contar para cada una las fichas que hay de cada color en un 
momento determinado y no las que se han girado, también habría 
que puntuar las posiciones de todas las fichas del tablero y no sólo 
la de la ficha que se tira. Pero esto lo haría aún más lento. 
Aclarado esto seguiremos explicándolo como si se puntuara a la 
posición y no a la jugada. Para comprender el método lo haremos 
basándonos en un ejemplo abstracto de tres niveles de juego. Ob- 
serve para ello el siguiente árbol: 


Pg 


PA PAML PAAFP124Y PAR PA Pega P242 P2R4  Pe2  P223 
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En este momento estamos en la posición PO. Lo primero que hare- 
mos será copiar el tablero real en otro de pruebas para poder 
realizar las valoraciones. Una vez hecho esto, se juega ya en el 
tablero de pruebas la primera jugada J1, su primera respuesta J11 
y la primera respuesta a ella: la J111 una vez en este punto se 
evalúa la posición P111 a la que se ha llegado después de realizadas 
las jugadas y se obtienen por ejemplo 10 puntos. Con ello tenemos 
el árbol de la siguiente manera (al lado de la posición se ponen los 
puntos obtenidos). 


Pg 


(40) 


PA Pe 


(10) 
PA4 Paz P24 pes 


Pat 
(40) ? 2 ? 2 2 ? 2 ? ? ? 


Como no se han examinado más jugadas, de momento ésta es la 
puntuación que obtendremos tanto para P11 como para P1. Pero 
luego examinamos lo que pasaría si a partir de la posición P11 se 
efectuara la jugada J112 evaluando la posición P112 y suponemos 
que nos da 8 puntos. Dado que las jugadas del tercer nivel las 
realiza la máquina y no el jugador humano nos quedaremos con la 
P111 y por tanto no variarán las puntuaciones de P11 y de P1 en el 
árbol, ya que siempre realizaremos la mejor jugada: 
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PAAA PA PAA3 

(40) ($) (43) 

Si luego al examinar J113 nos da por ejemplo 13 puntos en P11; 
entonces J113 será la jugada escogida hasta el momento, y coloca 
remos la puntuación de P113 en P11 y en P1. En definitiva, en P11 
se coloca el máximo obtenido de todas las posiciones del tipo P11X 
cualquiera que sea X. Así después de haber sido examinadas todas 
las jugadas del tipo J11X el árbol tendría una forma así: 


Pg (43) ¿ATUGADA ELES IDA 
SERA PA. 


(4) 
P22 


PIM Pa4n2 PA43 P44 PA P123 Par P2tl  P224 Pel 
(40) (9) (13) (18) (NH (8) (1) 1MY (DD (YN 
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Después recuperamos el tablero en la posición P1 y realizamos la 
jugada J12, examinando todas las respuestas posibles y puntuando 
las posiciones P121, P122, etc. y en P12 colocaremos el máximo de 
los P12X. La diferencia está en que ahora, en P1 no pondremos el 
máximo de P11 y P12 sino el mínimo, ya que las jugadas J11 y J12 
las realiza el contrario y por tanto escogerá la que dé una puntuación 
más baja, suponiendo que sea un buen jugador. En general, el 
árbol quedaría estructurado de la siguiente manera: 


PD max CPxX) 


MIV(PIX) MIN (P2X) 


P2 


MAX (P22X) 
P22 


MAXC(P42X) 
P12 
% HAXCP24X) 


MAXC?14X) 
PA 


PIM  PAA2 PA3 P124 P72  P123 P244  P242 P224 P222  P223 


La notación MAX(PX) significa el máximo de P11, P12, P13, etc., y 
MIN(P2K) significa el mínimo de P21, P22, P23, etc. 

El método tiene un problema, y es la gran cantidad de valoraciones 
que hay que hacer. Para tener una idea hagamos unos cálculos: el 
99% de las veces, el Othello termina habiéndose jugado las 60 
fichas. Vamos a suponer que para cada jugada sólo hubiera 3 posi- 
bles respuestas, aunque son más. Si quisiéramos examinar a nivel 
60 tendríamos que hacer al principio de la partida 4 por 10 elevado 
a 28 valoraciones aproximadamente (es decir, un 4 seguido de 28 
ceros aunque en realidad serían muchas más). Suponiendo que 
cada una tardara 1 microsegundo (que es muy poco, ya que la 
mayoría de las instrucciones del Z80 ya tardán más) tendríamos 
que esperar 4E22 segundos, más de 40 billones de años. En fin, 
que dudo que alguien se espere a que conteste el ordenador. 
Debido a esto, en los juegos con gran crecimiento como el Othello, 
las damas, el ajedrez, etc., no se puede investigar hasta el final, y 
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se escoge un nivel que dé un tiempo de respuesta aceptable. 
Aparte de esto, el método se puede refinar para que no se tengan 
que examinar todas las jugadas. Veamos un ejemplo: Supongamos 
que estamos haciendo una profundización a 2 niveles y que una 
vez examinadas unas cuantas jugadas, el árbol presenta el siguiente 
estado: 


Pg 


P44 P42 
(8) (43) (44) (9) (6) P2X 


Observamos que el mínimo de los P1X es 8 y que en la jugada J22 
se ha obtenido una puntuación de 6 por lo tanto el mínimo de los 
P2X siempre será menor que 6, que a su vez es menor que 8, por 
lo tanto nunca será escogida la jugada J2 por lo que ya no nos 
hace falta para nada seguir examinando las jugadas J23, J24, etc. 
que pueden ser muchas. Con esto se ve, que el resultado que se 
obtenga en PO 1 final será el mismo que si se hubieran examinado 
todas, pero con un ahorro considerable de tiempo dado que pode- 
mos desechar muchas valoraciones. 

Si además, el orden en que se eligen las jugadas a examinar de 
cada nivel, es de mejor a peor, entonces es más posible que nos 
aparezcan primero los valores más adecuados en cada nivel para 
desechar los siguientes exámenes de las demás ramas que parten 
de ese nudo. Es evidente que no sabemos cuál es la mejor jugada, 
pero lo que sí tenemos es una idea. Por ejemplo, está claro que el 
orden que se seguirá en el Othello es el que se ha dado a las 
jugadas en el primer programa. 

El siguiente programa es de nuevo nuestro amigo el Othello, esta 
vez examinado a 2 niveles de profundidad, en él se aplica todo lo 
que se acaba de explicar, aun así tarda una media de 4 minutos en 
responder a una jugada ¡y eso que sólo está a nivel 2! Pero esto es 
debido a la lentitud del BASIC interpretado ya que en código máqui.- 
na no tardaría más de 2 o 3 segundos. Pero lo que interesa es que 
el programa sea comprensible. 
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EL OTHELLO A NIVEL 2 


Este programa es igual que el otro excepto en un punto del algorit- 
mo: Se trata del proceso que llamábamos TIRADA DEL ORDENA- 
DOR. Por eso supondremos que el diagrama es igual que en el otro 
y sólo haremos el refinamiento y el pseudoprograma de esta parte. 
Para ello necesitamos introducir una nueva variable que nos diga 
los puntos que tiene cada casilla, y definir exactamente la función 
que nos evaluará los puntos de la jugada. También pondremos un 
filtro a la respuesta del jugador por si es mentira que no puede 
tirar, diciéndole además, una de las casillas en que puede hacerlo. 
También se prevé un caso en el que ninguno de los dos jugadores 
pueda tirar, que no estaba previsto en el otro programa. 

En el gráfico ya refinado del proceso «TIRADA DEL ORDENADOR» 
(página siguiente) representaremos por NJ1 el número de jugada 
de primer nivel, y por NJ2 el número de jugada de segundo nivel. 


Las subrutinas principales del programa anterior sirven para éste 
pero hay que duplicarlas para que examinen y tiren en un tablero 
interno del programa (que estará en la variable T$) ya que si lo 
hicieran en la pantalla, destrozarían la posición actual. 

Un truco para programar este método consiste en darle a los niveles 
impares (que son los que su puntuación se obtiene calculando el 
máximo del nivel inferior) el valor más pequeño posible, mientras 
que a las posiciones de nivel par se les asigna el valor más grande 
posible, ya que se obtienen calculando el mínimo. Para que el pro- 
grama en pseudolenguaje nos ocupe menos espacio vamos a rela- 
cionar algunas variables: 


— SW. Al igual que OK es un «switch» o interruptor, que nos indica 
si se ha validado alguna de las jugadas de primer nivel. 

— MAX. Contiene la puntuación de la posición PO en un momento 
determinado, se llama MAX ya que es el máximo de los MIN. 
— MIN. Contiene el mínimo de las puntuaciones de las jugadas de 
segundo nviel que se han examinado hasta el momento. 

— JU. Contiene el número de jugada cuya puntuación está en MAX, 
es decir, la mejor jugada hasta el momento. 

— A. Contiene la jugada de primer nivel que corresponde a las 
jugadas de segundo nivel que se están examinando en un momento 
determinado. Su valor pasa a JU cuando el mínimo de las puntua- 
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PRINCIPIO 


COMPRUEBA 
N ITA No 


vo 


SADA UIVELA 


S/ 


TIRA La 


TUSADA 
SELECCION Y SELECCIONAD, 
TIRA NTA NT4ELCASO 
DE PVE MIÍV SEA 


MEJOR PUE CLA 
SELECCIONA DA 


COMPRUEBA 
NT2 


TIRA NMT2 
SUIR DA LAS/ 


Es LA PEOR 
DE n/VELZ 


Ev MIN 
PUVTUA 


ES 
PEOR pveE 


CA. 
SELECCIONA 
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ciones de estas jugadas es mayor que MAX, por lo tanto es una 
jugada mejor. 

— PH. Contiene la puntuación de la jugada de segundo nivel que 
se está examinando. Su valor se asigna mediante una fórmula que 
tiene en cuenta la posición de la ficha tirada, así como el número 
de fichas girados. 

— PO. Contiene la puntuación de la jugada de primer nivel que se 
está examinando. Se asigna igual que PH. 

— FG. Contiene el número de las fichas giradas en una jugada 
determinada. Sirve para calcular PO y PH. 

— P$. Contiene los puntos de las 60 posiciones del tablero. 

— T$ y B$. Tienen dimensiones (8,8) y son tableros provisionales 
para hacer las jugadas internas y valorarlas. 

— MENTIRA. Contiene un 1 si el jugador puede tirar. 


Ahora procederemos a escribir el pseudoprograma del proceso «TI- 
RADA DEL ORDENADOR». 


— TIRADA DEL ORDENADOR— 

MAX=-—10000 SW=0 

COPIA DEL TABLERO ORIGINAL 

BJ: BUSCA SIGUIENTE JUGADA (PR) 

SI LAS HAS MIRADO TODAS Y NO PUEDES TIRAR, QUE TIRE EL 
JUGADOR 

SI LAS HAS MIRADO TODAS EJECUTA LA MEJOR DE ELLAS 
SW=1 (PUEDES TIRAR EN ALGUNA CASILLA) 

GUARDATE LA JUGADA (A=PR) 

TIRALA EN EL TABLERO DE PRUEBAS 

COPIA ESTE TABLERO EN OTRO 

PUNTUA LA JUGADA 

MIN= 10000 

BH: BUSCA LA SIGUIENTE RESPUESTA A LA JUGADA A 

SI LAS HAS MIRADO TODAS Y NO PUEDES TIRAR MIN=0 VES A 
P: 

TIRA LA JUGADA EN EL TABLERO DE PRUEBAS 

PUNTUALA 

P: SI LA PUNTUACION ES PEOR QUE MAX VES A BJ: 
(ABANDONA ESTA RAMA) 

MIRA SI ES MINIMA Y GUARDALA EN MIN 

SI NO HAY MAS JUGADAS (DE SEGUNDO NIVEL) VES A F: 

VES A BH: 

F: SI EL MINIMO ES MEJOR QUE MAX, GUARDATE ESTE MINIMO 
EN MAX Y GUARDATE LA JUGADA EN JU 

RECUPERA EL PUNTERO DE LA JUGADA DE PRIMER NIVEL 
ANTERIOR (PR=A) 

SI NO ES LA ULTIMA VES A BJ: 

TIRA LA JUGADA JU 

—FIN— 
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Como se puede ver, la situación es un poco más complicada que 
en la rutina del programa anterior. También se puede observar que 
tardará bastante más tiempo. En cualquier caso este programa jue- 
ga mejor que el otro, si no pruebe a enfrentarlos. Veamos como 
queda el listado del programa: 


1 REM: Sep re sir rs 
2 REM ex FERFEAAARAAAER AA 
3 REM PROGRAMA PRINCIPAL 
S REM 3er rrrr+isirrririrs 
6 REM ore sesos ama teo 
100 GO SUS 23000: REM INICIALIZA 
20 INPUT “QUIERE EMPEZAR? 15.N 
1 O"; LINE rg 
30 IF rg="S" OR rá="s" THEN GO 
TO_ 1080 
35 REM 


30 REM EXE RAAARAAAREER 
37 REM TIRADA DEL ORDENACOR 
9 REM XERAL 


41 LET S5U=0: => MAX=-10000: L 
ET JU=0: E PR= 

43 LET ASh="x": Luer Es="0" 

45 GO SUB 5900 

50 50 SUB 4500: REM BUSCA JUG 


50 IF U0K=0 ANC PR=50 AND SU=8 
THEN PRINT_AT 20,0;"NO PUEDO TIR 
AR, HAZLO TU": LET UJO=0: BEER 3 
225: PRINT AT 20,0;' 

": G0 TO 1000 

E IF OK=0 AND PR=60 THEN GO T 


sa LET_SU=1: LET A=PR 

392 60 SUB S200 

100 _LET_PO=UAL PSIPR)+FG30.028% 
e 


9) 
": LET ESz="x" 


0u 


ND PR=608 THEN LET 


150 60 SUB 7500 
1560 LET PH=VAL PS(PR)+FG%0,023% 
(CONTO+CUNTX) 

200 IF PO-PH<=MAX THEN 60 TO 48 


Da 

SS IF FO-PH<MIN THEN LET MIN=P 
220 IF PR=60 THEN 50 TO 300 

230 LET PR=PR+1: GO TO_130 
300_IF MIN>MAX THEN LET MAX=MIN 
: LET JUzA 

400 LET_PR=A 

410 IF PR=60 THEN 60 TO Suu 
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LET PR=PR+1: GO TO 43 

LET A5z="X": LET E$z="0" 

md XÑ"UAL US(JU): LET Y=UAL 
G 


0_S5UubB 30008 
LET UJOx=1: LET CONTX=CONTX + 


GO SUB 7u0u 
GO SUB 30089 
REM 


REM REA RAERA ARA RARE 
REM TIRADA DEL JUGADOR 
REM a 
LET A$="0": LET il e 
INPUT “VERTICAL: "; 

LET ARTS 

IF X=0 THEN GO SUB más RE 
MPRUEBA IMPOSIBILIDA 

IF MENTIRA=1 THEN 20 TO 100 


IF MENTIRA=0 THEN G0 TO 106 


INPUT "HORIZONTAL: "Y 
PRINT RAT 20,0; 


1040 G0 SUB _ 3000: REM 
1050 IF OK=0 THEN PRI 

JUGADA ERRONER": B 
G0_ TO lule 


Pp 

GOGO UATANE 
VOrrerG00DUDoae NRO 
ti 


e 


be 
Go 6 
Gm fu 
sn 0 


AR: 
NT_AT 20, 
EEP 10. 


065 _G0 SUB 3000: REM MIRA SI ES 
INAL 


REM SUBRUTINAS 


REM xr rr ir 
REM MIRA SI ES VERCAD 
REM eri rr rr rr AAA 


REM 
GO SUB 4000: REM BUSCA JLIGA 
EN O0K=0 THEN LET MENTIRA=0: 


Cer UJH=0 

LET MENTIRA=1 

PRINT AT 20,0; FLASH 1; “MEN 
PUEDES TIRAR EN ";X: RO 

BEEFP 4,-20: PRINT AT 20.90;" 


RETLIRN 
LET MAX=-10000 ; LET Qlii=0 
LET a ¿ LET Es5= 00 


GO SUB 4010 

REM 

REM Rex rr irrrrririirr+i+r 
REM MIRA SI ES FINAL 

REM Erre rie 


REM 
IF CONTO+CONTX=54 THEN 60 T 


IR IN 
NeGOrGOwWUG JO 


- 


UF Mom 
OMITA GAGO 


GPUNraouaeraSa 030JdImOos 


GIO MO FCI Fs is Es PU Ms Fo 
GS0c6acGEBGEA GBIEANA GABBA E 
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an 
IF UJO=0 AND UJH=0 THEN GÚ 


0 95 

3010 

TO 9508 
3020 RETURN 
3900 REM 
3910 REM RH EFAAAAAEA 
3920 REM BUSCA JUGADA 


3930 REM rr 
3940 REM 


4000 LET PR=1 

4010 LET X=UAL HS5(PR): LET Y=UAL 
US$ (PR) 

49015 PRINT AT 0,31; QUER 1;"* 
4020 60 SUB 38000: REM COmPhuEsA 
4030 IF OK=0 AND PR<50 THEN LET 
PR=PR+1: 0 TO d4dulu 

4040 RETURN 


4400 REM 
4410 REM HEEE REAA RAEE 
4420 REM BUSCA JUGADA 2 


4430 REM erre rrrirrrirtiri 
4440 REM 

4500 LET X=UAL US(PR): LET Y=UAL 
Hs (FR: 


4505 PRINT_ AT_ 13,10; "PR:";PR 
4510 60 SUB_3500: REM _COMPRUEBA 
4520 IF OK=0 AND PR<60 THEN LET 


PR=PR+1: 50 TO 4500 
: RN 


EXAERARAEAA ARA AAA 
A TABLERO 
EXE AREA RARA AAA 


TO 3 
TO 3 
(K,LJ=SCREENS (K,L) 


REM EXE 
REM RECUPERA EL TABLERO 
REM RRA AAA AAA 


FOR K=1 TO 83: FOR L=1 TO 8 
LET_TS(K,L) =BS1K,L) 
L: NEXT K 


REM REX RA AAA 
REM GUARDA EL TABLERO 
REM Rex RAEE ARES 


FOR K=1 TO 8: FOR mida TO 8 
LET_BS$(K, LL=TEIK,L 
NEXT L: NEXT 


REM ARRE 
REM EJECUCION DE LA TIRADA 
REM RARE ERE RARA NAAA 


REM 
RESTORE 8010 


Gi 0 O O DU ON GAR UA YA OCA UA OA AA UN OA OR UN AR GA A A OR UN NOR 
GOVW0OONWUNWV-P-P-RPPRPPRPOGSOOISDGGAABE 
0000000406010 Pdo GA SA ANA DÓUARB 
SPO0Wr OGG OGGNGNDNDGBGGG UnD 

z 

m 

Xx 

+4 


58 


00 06 00 08 00 064 CO 09 0009 dd dl dd od dd 
66506060 Y 06 -J 0 UN 
VerrrrrerrrOD0DDDDSOO Io 
S 410101 Oro GruUmiur suas 


GO TO 


39509 
3070 


PRINT AT OX.Y:AS 

FOR J=1 TO Ss 

READ IX,IY,FX,FY 

IF 01J3,1i=0 THEN 60 TO 7200 
X: LET Yili=Y 


LET X1=X1+IX: LET Y1=Y1+IY 
IF x1=0(3,1) AND Y1=01(J,231 
GO TO 7200 

BEEP .1,25: PRINT AT X1,Y1; 
IF As$="0" THEN LET CONTO=CO 


¡ LET CONTX=CONTX-1 

IF As="x" THEN LET CONTX=C0 
¿ LET CONTO=CUNTO-1 

FRINT AT 12,22;' "¡AT 12, 


PRINT AT 13,22;" "¿AT 13,2 
0 TO 7050 


REM Riiie 
REM EJECUCION INTERNA 
EE EXEREAARERE RIERA RAEE 


REM 
RESTORE 3ulu 
LET TS 1X,WY)1=AS 
LET FG6=1 
FOR J=1 TO 3 
READ IX,IY,FX,FY 
LE 01J,1)=0 THEN 60 TO 7700 
LET x1=x: cl Yl=Y 
LET Yl=Y1+IY 
AND Y1=0(J,2) 


REM *xxx%% 
REM COMPRO 
Sel EXILE 


- 


P- - 
bio 


r- 
FHuerP1+- OprPr - 


.. fo 


LET Ok=8 


POR 


a] 

D 

AH 
co 
UziP1PI1GGP 


Ex IX,IY,FX 
IF X=Fx OR er THEN 60 TO 


IF SCREENS (X,Y)<>" " THEN 
32009 

LET_ X1l=X+IX: LET Y1=Y+IY 
IF SCREENS (X1,Y1)=ES% THEN 
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IF x1l=Fx OR Yl=FY THEN RETU 


LET_x1=xX1+IX: LET Yl=Y1+IY 
IF Tg5ix1,Y1)=" " THEN _RETUR 


GO SUB 83300 

3200 NEXT y 

3250 RETURN 

ia IF x12FX OR Y1=FY TMEN RETU 
8310 LET X1=X1+1X: LET Y1l=Y1+IY 
33158 IF SCREENS (X1,Y1)=" " THEN 
RETURN 

8320 IF SCREENS (X1,Y1)=A$ THEN 
LET OK=1: LET 0(J,1)=X1: LET O(y 
,¿21=Y1: RETURN 

33309 50 TO 38300 

3399 REM 

8400 REM XX AREA RERAALLERAR 
38405 REM COMPROBACION INTERNA 
3410 REM RRE ARE 
341 EM 

3509 RESTORE 3010 

3510 DIM 0(8,2): LET OK=8 

8520 FOR Jz=1 TO 3 

38530 READ IX,IY,FX,FY 

Ep IF x=FX OR Y=FY THEN G0 TO 
520 IF TAX, Y)1<>" " THEN GO TO 
5] 

3560 LET Xl=X+IX: LET Ylz=Y+IY 
o A T$(x1,Y1)=E$5 THEN 60 SUB 
360 NEXT y 

3610 RETURN 

570 

RN 

s71 

372 

NW 


SGPOWNroGcScSm GS GS 5656565658 


373 IF T4ix1,Y1)=A$ THEN LET OR 
=1: LET (0(d,;1)=X1L: LET O tu,2)=1 
: RETURN 

3750 60 TO 3700 

5500 RETURN 

39290 REM 

3991 REM kE 
3292 REM INICIAL IZACIOÓN 

32993 REM Rex 
3924 REM 

3000 PRIMT AT 0,0; *' MA 
399109 FOR il e 3: PRINT AT 1,0; 
a Mii: NEXT 

2020 PRINT ar 2,0," 

2039 PRINT AT 10,1: "12345678" 
add PRINT AT 4,4; “OX"¡AT 5,4;Ux 
ar 

9050 LET H5="13351515386133863356415 
315435655643534645722327 7426357712 
1382377272" 

30509 LET U$="33111515533335358483 
45115435345552775557435257224123 
FR123S2 772" 

30565 LET P%$="38388777777776666555 
555554444444 43339333339333333323:22 
222221111" 

3057 CIN B$1(3,81 DCIM T4(35,9) 
39070 LET UJH=1: LET Usos 

3050 LET CONTO=2: LET CONTx= 


390909 PRINT AT 12,19; “TU: "¡CONTO 
3109 PRINT AT 13,19; "YO: "¡ CONTX 
39110 PRINT AT 4,4; "0x" 

3120 PRINT RT S 14: 0x0" 

3130 PRINT AT 1,17;' "INSTRUCCIONE 
SU"¡AT 1,17; OVER 1;' 

S149,. PRINT AT 3,13; "-TLU TIENES L 
5 “El 

39159 PRINT AT 5,13; "-YO0 TENGO LA 
pa] x' 

391509 PRINT ar ?, ds '-SI NO PUEDE 
3 TIRAR" ¡ AT 3,13 "CONTESTA A "a E 
A ¿AT 3, 133" LA” JUGADA" 

3170 RETUÉN 

3490 REM 

9500 REM 3% AE 
9510 REM FINAL DE PARTIDA *? 
9520 REN Fierro 
9525 REHM 

39540 IF LONTO>;CONTX THEN PRINT A 

T 17,0; AS BIEN, HAS GANADO": B 
EEP 10, STOP 

9550 1 SP LONFX>CONTO THEN PRINT A 

T 17,0; "LASTIMA, HAS PERDICO": B 
EEP 5,-30: 3TOP 


COMENTARIOS SOBRE EL PROGRAMA 


En primer lugar observe detenidamente las líneas 100 y 160. En 
ellas se efectúa la valoración de las jugadas (no de las posiciones), 
según el siguiente cálculo: 


PUNTOS=PUNTOS DE LA POSCION+FICHAS 
GIRADAS*0.028*(NUMERO DE JUGADA) 


Los puntos de la jugada se colocan en la variable PO si es una 
jugada de primer nivel (la hace el ordenador) o en la variable PH si 
es una jugada de segundo nivel (la hace el jugador humano). Los 
puntos de cada posición están en la variable P$, por eso en la 
fórmula aparece VAL PS$(PR). Donde PR es el número de posición 
según la tabla de posiciones representada por las variables H$ y 
V$, que se encuentran especificadas en las líneas 9050 y 9060 de la 
rutina de inicialización. El número de fichas giradas está contenido 
en la variable FG que se actualiza en la rutina «EJECUCION INTER- 
NA» (líneas 7015 y 7080). El número de jugada se calcula sumando 
las fichas de cada bando (CONTO+CONTX), variables que se inicia- 
lizan en la rutina de inicialización y que se van actualizando en la 
rutina «EJECUCION DE LA TIRADA» (líneas 7074 y 7076). Por último 
tenemos el coeficiente 0.028 que modifica el valor del producto 
entre las fichas giradas y el número de jugada. 

El segundo término de la fórmula (FG*0.028*(CONTO+CONTX) hace 
que entre dos jugadas que giren el mismo número de fichas, tenga 
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más valor la que esté más al final de la partida. Si el coeficiente 
fuera O el número de fichas giradas no tendría valor. Y si fuera un 
número grande (1, por ejemplo) la consecuencia sería que a partir 
de un momento de la partida (jugada 5 o 6) la posición perdería su 
importancia mientras que el número de fichas giradas iría adquirien- 
do más cada vez. Por todo esto el número 0.028 se puede cambiar 
según la estrategia con la que se quiere que juegue la máquina. 
Este número lo he elegido por tanteo ya que me ha parecido que 
era el que hacía que el ordenador jugara mejor, pero usted puede 
tener otra opinión. 

Obsérvese que debido a la línea 105 que inicializa MIN con un valor 
muy grande (10000) inalcanzable por cualquier puntuación, la línea 
210 coloca en ella el valor mínimo (el peor para el ordenador) de 
todas las respuestas a una jugada de primer nivel. Por tanto MIN 
corresponde a las posiciones de tipo PX donde en este caso, X 
puede valer desde 1 hasta 60. Observe también que gracias a esto 
no hace falta guardarse todas las puntuaciones de segundo nivel 
(PO-PH, en el programa) sino que se guarda únicamente la mínima 
en la variable MIN. 

En la línea 300 se elige una jugada de primer nivel, en el caso de 
que suponiendo que el contrario nos responda con su mejor res- 
puesta (donde se obtendría la puntuación que hay en ese momento 
en MIN), ésta sea de mejor puntuación que la anteriormente elegida, 
es decir, que MIN sea mayor que MAX. 

La línea 200 es muy importante, ya que hace que si en una rama se 
ha obtenido una puntuación peor que la mejor hasta el momento 
(almacenada en MAX), ya no se examine el resto de la rama y se 
pase por tanto a examinar la siguiente jugada de primer nivel. 
Por último, si desea introducir este programa en el ordenador para 
competir con él, léase antes los consejos del último capítulo, ya 
que conseguirá un ahorro considerable en el tiempo de respuesta. 
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JUEGOS CON TRUCO: EL 15 


El juego que vamos a ver ahora está sacado de una idea de Martin 
Gardner. El juego consiste en lo siguiente: Se tiene una hilera de 
casillas que contienen los número del 1 al 9. Los jugadores van 
eligiendo números por turnos, de modo que si un número ha sido 
ya elegido no puede serlo otra vez por ninguno de los jugadores. 
Se declara vencedor, al jugador de los que consiga tener tres núme- 
ros distintos que sumen 15. La idea es sencilla, ¿verdad? Pero ¿có- 
mo lo haremos para hacer un programa que juegue al 15 de un 
modo eficaz? Una manera sería decirle a la máquina cuáles son las 
combinaciones ganadoras y utilizando el método del árbol analizar 
las jugadas puntuándolas más si «prometen» más, o puntuarlas 
mucho si consiguen una combinación ganadora. 

Pues bien la idea está en que este juego es totalmente equivalente 
al tres en raya, que es un juego muy fácil de programar y del cual 
existen ya muchos programas. 

Vamos a analizar cuáles son las combinaciones ganadoras: 


¡He Ho Ho») 


Dd 0 00 
¡NEO OY) 
OA 0 
(OH 00H 


1 
2 
l 
4 
Todas esas ternas de números tienen la particularidad de que suman 


15, y además son las únicas que tienen esta propiedad. 
Imaginemos ahora el siguiente cuadrado: 


Si lo observamos con detenimiento, veremos que las tres columnas, 
las tres filas y las dos diagonales, forman 8 líneas rectas que contie- 
nen a las únicas 8 combinaciones ganadoras del 15: 
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Por lo tanto, jugar al 15 es lo mismo que jugar al 3 en raya, tenien- 
do la precaución de cambiar la casilla por el número que está 
contenido en ella. 

Para hacer una programa que juegue al tres en raya, normalmente 
no se usa la búsqueda por árbol, ya que con unas pocas reglas, se 
consigue al menos hacer tablas. Para los que quieran desarrollarlo 
por el método tradicional escribiremos la parte de la jugada del 
ordenador'en pseudolenguaje, ya que en el libro lo desarrollaremos 
por árbol a tres niveles, más que nada para ejemplificar lo que se 
acaba de explicar: 


—JUGADA DEL ORDENADOR— 

SI CONSIGUES 3 EN RAYA TIRA EN ESA CASILLA 

SI EVITAS UN TRES EN RAYA, TIRA EN ESA CASILLA 

SI CONSIGUES UN DOS EN RAYA, TIRA EN ESA CASILLA 

SI EVITAS UN DOS EN RAYA, TIRA EN ESA CASILLA 

SI HAY UNA RAYA VACIA, TIRA EN CUALQUIER CASILLA QUE 
LE PERTENEZCA 

SI NO OCURRE NADA DE LO ANTERIOR. TIRA EN LA PRIMERA 
CASILLA VACIA QUE ENCUENTRES. 

—FIN— 


Ahora vamos a complicarlo para desarrollarlo para un árbol de tres 
niveles. El programa no tardaría mucho más si lo hacemos hasta el 
último nivel, ya que la primera jugada siempre será la casilla del 
medio (correspondiente al número 5 del 15) en caso de que esté 
desocupada. Así por ejemplo, en caso de que empieze el contrario, 
y tire en una casilla distinta de la 5, el ordenador contestará tirando 
en la 5 inmediatamente y el jugador a su vez responderá tirando en 
una casilla cualquiera. Por lo tanto, sólo quedarán 6 casillas por 
llenar, de modo que aproximadamente, el número total de combina- 
ciones de juego que quedan es de 6x5x4x3x2x1=720. Si en cam- 
bio empieza el ordenador tirando en la casilla 5, después de la 
jugada del contrario habrá 7x6x5x4x3x2x1 posibilidades, es de- 
cir, 5040 combinaciones. El caso peor es cuando empieza el jugador 
y además tira en la casilla 5 ya que el número de combinaciones a 
examinar sería de más de 40000. Creo que esto es suficiente como 
para reducir el nivel a 3 ya que con ello, el caso peor queda reduci- 
do a 336 posibilidades, y el mejor a 120. 

El diagrama es parecido al de los demás juegos: 
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PRINCIPIO 


IWICIALIZACIONW 


CAMGB/A 


El 
TUR WO 


BUSCA 
JUGADA 


3 EN RAYA 


ACEPTA 
TUGADA 


CONVIERTE 
A JUGADA 
DEL "48" 


FIVAL 
PARTIDA 
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Prácticamente la única diferencia que hay es que la jugada del 
ordenador (que la ha pensado como 3 en raya) debe convertirse en 
una jugada del 15 antes de tirar. Esto no ocurre con la jugada del 
humano ya que se supone que no conoce el truco, y en caso de 
que lo conozca ¡al menos que pierda un tiempo pensando! 

Por esta vez no escribiré el programa en pseudolenguaje ya que es 
similar al del Othello, sólo que con un nivel más, así que vamos a 
por el listado: 


a GO 5UB 35000: REM INICIALIZA 
1 

29 INPUT "EMPIEZO YO? "¡R$ 

25 IF R%<> "NO" ANS Rsc<> "SI" TH 
EN 0 TO 20 

393 IF R="NO" THEN 60 TO 1200 

40 REM 

SO REM Rx RA AAA AAA 

50 REM PRINCIPIO PRIMER NIVEL 

TO REM REX AAA AAA 

350 REM 

20 LET PUNI1=-10000 

35 IF CONT<2 AND A(2,2)=0 THEN 
LET X=2: LET Y=2: LET JUG=1: 60 


100 LET Pl1=1 
110 IF P1>39 THEN GO TO_ 1048 
LET x1=0C(P1,1): LET v1=CI1P1 


IF Rixl, is THEN LET Pl= 
GO TO 11 
GO sUuB 3300: REM CAMBIA TAB 


LET TixX1,Y1)=1: REM TIRADA 
GO SUB 5000 

50 SUB sud 

LET FINAL=0: IF F£i1l)="L" T 
LET JUG=P1: LET Xz=x1: LET Y= 
0 TO 1040 

REM 
REM RRREREERERRAERAE AAA AER 


REM SEGUNDO NIVEL 
REM FREE RREAE AREA ER 


er ARAS =10000 


E P29. THEN GO TO 1015 
LET X2=C01P2,11: LET Y2=C1P2 


IF T(x2,Y2)<>0 THEN LET P2= 
: GO TO 420 
REM RARE RRA RAEE 


REM PRINCIPIO TERCER NIVEL 


REM RRERERERRERERERA ARA 
LET T(XxX2,Y2)=4 

LET PUN3=-10000 

LET P3x=1 


- 


r TB 


XI 
GOGGaciires E 


JS IRMA 0000 AM A QM AR e A 


- 


D 
POGOlUrROw0+ +0 Ur ZUNE DO+ Y 


GOGO? SAAB 
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720 IF P3>9 THEN 60 TO ...> 
730 LET X3=C01(P3,11: LET YS3=CIPS 


2) 
740 IF TIX3,Y3)<>0 THEN LET PS3= 
a 69 TO 720 


Osa... 
0 $0 SUB 5000: REM SUN FILAS 
770 GO SUB 56063: REM 'TUA 
0 IF PUN>PUNS THEN Cer PUNS3=P 


1004 IF P3:<9 THEN LET_ ES P3+1  L 
ET LES. Y3)=0: 60 TO 


¡JAI AE 
REM FIN TERCER NIVEL 
A RE 
1009 REM 
1010 IF PUN3<PUNS THEN LET PUN2= 


1 IF PUN2<=PUN1 THEN GO TO 18 


19015 IF F2<9 THEN _LET P2=P2+1: L 
ET_T(X3,Y3)=0: LET Tix2,Y2)=0: G 
0 TO 420 

1020 REM _ 
Mia FIN SEGUNDO NIVEL 


REM 
IF PUN2>PUN1 THEN LET PUN1= 
PUN2: LET X=X1: LET Y=Y1: LET JU 


1030 1F P1<9 THEN_LET Pl=P1+1: L 
od ¿Y3)=0: LET Tix2,Y2)=0: G 


1031 EA 

1033 ia A MES NE PRIMER NIVEL 
10409 RE 

1045 


REM 
de LET A(X,Y)=1: LET CONT=CONT 


10709 BEEP 0.1,0: PRINT AT 10,3*U 
Al JHLJUGI; INVERSE 1;UAL 5 (JUG 


1975 GD SUB 3000: REM CAMBIA TAB 
ala GO SUB 6000: REM LEE TABLER 


1090 GO SUB S0U00: REM MIRA SI HA 
Y 3 EN RAYA 

1100 IF FINAL=1 THEN 60 TO 9900 
E o THEN GO TO Y9ua 

0D REM 2% %REARARREAAA RAR 
S REM TIRADA DEL JUGADOR 

E REM REX RIRERARERERA RARA 
0 


R 
INPUT "QUE NUMERO QUIERES? 


0 IF N<>INT N OR N>9 OR N<1 T 
-G0 TO 1230 


0 
0 LET_x=0C (71,1): LET Y=0(T,2) 
0 IF RA(X,Y)<>0 THEN G0 TO 123 


GrerrIP 
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Yi=4: LET JUG=T: LE 
,25: PRINT AT 10,3% 
000: REM CAMBIA TAB 
REM LEE TABLER 
GO SUB 5000: REM MIRA 3 EN 
IF FINAL=1 THEN 60 TO 939900 


IF CONT=3 THEN 60 TO 3900 
0 TO Su 


Dz 
SS. DADAF 
oO 
LS 
€ 
o 
o 
G 
a 
a] 


JO WrRre ROrRMnerZeRAR 
T' 


GOLPEPEDO GmMmIo--Tlu mu 
raA0DuerGD: GDw 030 
GOGUESCEEZES GOGNNOE 


3050 NEXT J: NE> 

30909 RETURN 

500 REM 

5001 REM R%%8%XHEAELAARAAEAAAAEA 
5002 REM — MIRA SI HAY 3 EN RAYA 
S005S REM ¿Ree 
5005 REM 


5010 FOR R=1 TO 3 

20_IF L(Ri=12 THEN LET FINAL=1 
C LET Fs$="MUY BIEN, HAS GANADO" 
35030 IF LIK)=3 THEN LET FINAL=1: 
LET Fág=" Lo SIENTO, HE GANADO" 


5900 REM XA 
5905 REM LEE LAS FILAS 
! REM RR + rx rr RRA A 


+T(T,D): LET L 


+, HER 


TL, IE LET,L 


PuAzZAn 4 


REM RRA EREAA RARA 
PUNTUA 
REM EXE RARA 
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7989 REM 

7390 REM dt eo edi 
7991 REM INICIAL IZACI 

7995 REM repre PARA 


REM 
3000 DIM a DIM 219,2): DIMA 


BR IATA a A SO SU 


MS lo 
sane uu 
[5] 
D 
z_ 
A 
J os 
S 1 
mum A 
> 0D 
Pou b 
e ale 
ro 
DO 
mn - 


o0s- 
Ue-DOGoOa 


$ 
I 
0 
2, 1,1,3,3,1.,5,3,1, 
3 
R 
= 
Ci 


9500 REM RRA RARA ARA 
EM FINAL DE PARTIDA 
SA EXAREFAERA RE RARA RARAS 


BEEP 3,20 


O TO O O O O O 
O ZO O O CO CO dí 
Ne utlramers 


IF OR$="SI" THEN 


VARIABLES UTILIZADAS 


— A(3,3). Representa el tablero interno real (sobre el que se juega) 
de 3 en raya. 

— T(3,3). Es el tablero interno de 3 en raya utilizado para hacer las 
valoraciones. 

— C(9,2) Al igual que en el Othello nos proporciona ordenadamente 
las posibles jugadas en orden de mejor a peor, para poder benefi- 
ciarnos ventajosamente del posible desecho de una rama del árbol. 
El orden es bastante lógico: En primer lugar la casilla del centro, ya 
que pertenece a 4 líneas. En segundo lugar las de las esquinas que 
pertenecen a 2 líneas, y en último lugar las casillas que ocupan el 
centro de los lados del cuadrado, ya que sólo pertenecen a una de 
las líneas. 

— L(8). Almacena la suma de valores de cada línea. En cada casilla, 
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se pone un 4 si hay una ficha del jugador humano, y se pone un 1 
si contiene una ficha del ordenador. 

— PUN. Contiene los puntos de la posición después de una jugada 
de último nivel. 

— PUN1, PUN2, PUN3. Contienen las puntuaciones de cada nivel 
(PUN1 es el máximo de los distintos PUN2, que a su vez es el 
mínimo de los distintos PUN3, que es el máximo de los PUN). 
— P1, P2, P3. Contienen el número de jugada que se está analizan- 
do en los niveles respectivos según el orden especificado por la 
variable C(9,2). 

— X1,Y1,X2,Y2,X3,Y3, Son las coordenadas en el tablero de P1, P2 
y P3 respectivamente. 

— X,Y. Coordenadas de la jugada seleccionada. 

— JUG. Número de la jugada seleccionada según el orden especifi- 
cado por C(9,2). 

— NN. Número (del tablero del 15) en el que el jugador deposita su 
ficha. 

— K$. Datos para convertir una casilla del 15 en una casilla del 3 
en raya. Siempre se apoya en el orden de C(9,2). 

— Jf$. Al revés que el anterior, se usa para convertir una casilla del 
3 en raya en una casilla del 15. 

— T. Es el número N ya convertido en una casilla del 3 en raya. 
— CONT. Contador que indica el número de fichas jugadas. 


Con estas especificaciones no le será difícil seguir el flujo del progra- 
ma. La rutina de la jugada del ordenador se compone de 3 grandes 
bucles anidados, es decir, uno dentro del otro. El más interior, que 
es el que examina las jugadas de tercer nivel, sólo termina cuando 
se han examinado todas, ya que no sabemos si la próxima respues- 
ta puede tener mejor puntuación aunque las demás hayan sido 
malas. Lo mismo ocurre con el de primer nivel, exceptuando el 
caso de que se consiga un 3 en raya (líneas 310 a 330), o bien en 
el caso de que no esté ocupada la casilla 5 (línea 95). En cambio el 
bucle de segundo nivel termina en caso de que para una de esas 
jugadas se obtenga como mejor resultado uno peor que el de la 
jugada que se ha escogido como mejor hasta el momento (línea 
1025). 

La puntuación de una jugada se obtiene en la subrutina «PUNTUA» 
de la línea 6065. Esto se hace después de haber pasado por la 
subrutina «LEE TABLERO» de la línea 6000. Si indicamos las fichas 
de ordenador por Os y las del jugador por Hs tenemos la siguiente 
relación entre la lectura y la puntuación: 
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LEIDO SIGNIFICADO PUNTOS 


1 10 10 

2 2 Os 50 

3 3 Os 150 

4 1H —10 
5 10y1H 0 

6 20sy 1H 0 

8 2 Hs —50 
9 10 y 2 Hs 0 

12 3 Hs —-5000 


Las lecturas 7, 10 y 11 no se pueden obtener, y las lecturas 9, 6 y 5 
valen 0 porque se trata de líneas que no se pueden ganar ni perder. 
La puntuación de —5000 para la lectura 12 es totalmente simbólica 
Aquí también se puede variar la estrategia, cambiando el método 
de puntuar. Así, poniendo más puntos a las jugadas negativas que 
a sus equivalentes positivas, conseguiremos una estrategia defensi- 
va, mientras que haciendo lo contrario conseguiremos una estrate- 
gia atacante. 
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JUEGOS GRAFICOS 


«Juegos gráficos» es un concepto muy general que engloba a mu- 
chos tipos de juegos con una característica común: Hacen un uso 
continuado de las posibilidades gráficas del ordenador. Entre ellos 
tenemos a los juegos de pelota, los juegos del tipo «arcade» O 
«marcianitos», los juegos de circuito, etc. En esta sección desarrolla- 
remos una versión de un programa de un juego de circuito muy 
conocido: PAC-MAN o FANTASMAS. 

En este tipo de juegos, como ocurre con los marcianitos y con los 
de pelota, es muy importante la rapidez, ya que al ser interactivos, 
si el programa no es lo suficientemente rápido, nos dará la sensa- 
ción de que no responde a nuestras «insistentes» Órdenes. Lo que 
en realidad ocurre es que el programa aún no ha llegado a la línea 
o líneas que tiene destinadas a aceptar nuestras entradas, ya sean 
desde teclado, o desde un mando de juegos. 

Esta es la razón de que el juego no tenga más que fantasmas que 
persiguen al PAC-MAN. 

En realidad, el programa principal es muy corto, pues consta nada 
más que de un bucle en el que se aceptan los comandos del teclado, 
según sean estos comandos se transmite un movimiento u otro al 
PAC-MAN y se realiza un movimiento automático de los fantasmas 
de modo que le persigan. Aparte de esto, que es lo principal, hay 
que prever el caso en que el PAC-MAN se come las «pastillas» de 
modo que cuando tenga un encuentro el fantasma no le reste una 
vida, y en lugar de «morirse» el PAC-MAN se muera el FANTASMA. 
El resto del programa, consistirá en dibujar el tablero, inicializar las 
variables y crear los gráficos de todos los objetos que en él 
aparecen. 


PRIVC1PIO 


CREAR 
GRAFICOS 


IMICIALIZAR 
VARIABLES 
DIBVIAR 
TABLERO 
EVTRADA 


DE 
COMANDOS 


AVEVE 
Pac-MAv 
MvVEvE 
FAVTASMAS 


MveRe 
PAC-MAN 
VIDAS = VIDAS -4 


HAY 
FVERZA? 
CPASTILLA) 


MUERE 
FANTASM A 


FIVAL DE 
PARTIDA 
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1 REHM 

2 REM RRE E 
4 REM IMNICIALIZACIÓN 

S REÍ xr rr 
6 REH 

10 RESTORE : LET record=0: INR 


7: PAPER 1: BORDER 1: CLS : GO 


su 2000 

LET tpun=383: LET tin=2: LE 
T =0 

LET Pps="0" 

LET v=3 

LET punt=0: LET x=11: LET y 


u 
P 
: IBN 0DreGEn0-40 UNO QU 0 


2: LET_ b=2 
19: LET f=29 
* 


EXAEFRERAERE AREA 
REACION TABLERO 
ELAEFARRAA ARA 
1 

J 


GSGNGAISLUES GOEDS-a 
D 
m 
z 


MII-F+R+E 


= 


AS 
|] E u sE 


"270 LET abi 


ES) 
T 
m 
Y 
ús 
+ 
MR UA Em «Os 
u 
E 
y 


0 
6 
LES 
id 
En 
u 


"310 LET_35(5)= "MN. M.M........ 
ELN L q MENOS . 1 . UE. EOI 
339 LET 3510150 .... . « . «MMS 
A e 

370 LE O a 
EA 3 A 
O. E... 

499 LET Ac A 


U.S 
410 LET dió "DA  ..... 


ps 5h da: DD... 
»; Tas o aca a 
a: dimsiaa: HEN AS 


0) 
w 
[a] 
Tr 
m 
8 
pr 
p 
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E] 


-. 


ps] 


=1 TO_20: PRINT AT 2,0 
; NEX 


Q 
dd z 
10; "VIDAS=" 
0; "PUNTOS=" ¿Punt 


.-. 


DIDUUD MN 
MMMDD DA CO 


BUCLE PRINCIPAL 


RAREXRERARAE AAA 
FXEXERRERERE ARA 


REM :*x 


DENIOIOIIIOII O 
NS 


bere 
JUN POQmUr?Saoe?gIour aaa 
D 
m 
x= 


T_pt=pt-1 
INREYS$="" THEN 60 TO 104 


INREVYS="3" THEN LET pg=" 
INREVYS="zZ" THEN LET páh=" 
INKEYS="1" THEN LET pg=" 
INREVYH="k" THEN LET pg=" 


IF ps$="%'" AND as ix ,u-1):> 
THEN PRINT AT x.y" "o: LET y= 
1870 IF p$="8Y" AND cia , 
a PRINT AT x,u;' SÉ 


1050 IF pgs="8'" AND 330 +1. ¿> 
“ THEN PRÍNT AT x,y;? LET x= 


+1 
10290 IF p$="E" AND ax, ,u+11<o "E 
" THEN PRÍNT BT x.y" "oc LET y=8Yy 


l130 IF a$tx,Yl1="x%" THEN _ LET 
t=punt+10: LET Ft=20: FOR 2=0 To 


5) 276 76 GEES 
P y fuor 66 Ga 
S—UDUOSs Ea 

H H—H.HA—H 

e y 


ceprArDlidrJlirer re 
Si S 


yo 005,235: NEXT 72: 60 TO 

1154 

1140 IF a$tx,Yi="." THEN LET pun 
PONE BEEF .001,5u 

1180 FRINT AT x.y, INK Ti": BE 

EF ¿01,530 

1170 IF PO THEN LET tin=4 

1130 IF PT: ¿0 THEN LET tin=2 

ena JF 4:29 THEN FRINT AT x,.y;" 
Ñ LET Y=2 

1220 IF 4x2 THEN PRINT AT o x,y;" 
CC LET yq=23 

1230 LET pl=I"N [RADEF 

1240 LET p2=1IN IRNDRFF 

1245 PRINT AT al INR iaa, b! 

¿ATCE,Fj INR 7Ti¡afle,fl 

1250 IF p2>5 THEN GÓ0 TO isso 

1251 IF ax AND a3%$/3-1,bi:<> "Be T 

HEN _ LET a 1 

152 IF tb AND a$ta,b+1<> "BM: 7 

HEN LET b 1 

1253 IF b AND a$1a3,b-12:<>"B' 7 

HEN LET b 2 


76 


p 


ND a$ta+1,b)<>"M' T 


THEN 0 TO 1278 
ND a$(e+1, Noe 


A 
1 
A T 
AND a$ie,f+1)<> "Me Tv 
A T 
-1 
A T 
1 


PO 

F r 
HMHHIMHA 
e E A] 


mu 
+ + d+ 


ND a$ie,f-1) o" 
ND a$ie-1,f)3 "E" 
EN GO 5UB 3000 


3 

ND y=f% THEN FOR m 
20 TO 30: BEEP .0 
EXT m: PRINT AT e 
e=19: LET f=29 

b=Y) THEN FOR m 
0 TO 30: BEEP .0 
XT m: PRINT AT a 


LET b=2 
THEN 50 TO 500 
EN 60 TO 2000 
m=0 TO 2: FOR zZ=-18 TO 


DR 

P ,005s, z: NEXT z: NEXT ñm: 
RAT 11, S;' 'FIN DE PARTIDA": 
t 
I 


r 
m 
— 


VEGZOZOZOIZODZA 
PP u 
Tr 
HmHAm 
NANA 
DON + - — 0 06D dd 


On ES de 


GieerrIlrIirIlrirerte 
+ NDX NDIMOGi 


mA A 


r-- 


Cfi= 


o o 
ZU RW ZRATNA 


Y4< mUx 
Mun 


.. 


a RA II ES 


Sw NG H 1005 
A 


MurrGr- QirP- 
HUTGFwIwD O O O 
2--. 
CO 
AT 


Hana 


record THEN LET record= 


NT AT 13,5; FLASH 1; INK 
ER 56; "El record es: "¡reco 
UT "PULSA ENTER PARA Ju 
E 94%: GO TQ 2 
la=x ANC b=y1 UR Le sx AN 
y HEN PRINT AT x.,4u; mo EQ 
4 TO 4: FOR zZ=10 TÓ 20: BEEP 
=2: NEXT z2: NEXT om: LET x=1 
LET y=14: LET rs="%'": LET v=w 


3100 RETURN 

5000 FOR z=8 TO S: FOR m=-1a TO 
10: BEEP .01,m: NEXT m: NEXT z: 
LET tpount=tpunt+333 

5005 LET x=11: LET y=15 

5010 60 To 100 


P 
ls 
e 


¡E DONNTDO> 
Pos a 


3595 REM 

35995 REM rr 95x3RARR AAA AA EA 
3997 REH CREACIÓN CARACTERES 
3998 REM +++ irrrrerrrirrrirrs 
3929 REH 

39000 CATA Y 

2001 CATA 61H 0lo000010 

3002 CATA BIN 11100111 

3003 CATA BIN 11111111 

3004 CATA BIN 110119011 

2005 CATA BIN 11111111 

23006 CATA BIN 01111110 

3007 CATA BIN 00111100 

2005 REM 

3010 CATA BIN v0111100 

23911 CATA BIN 01111110 

23012 CATA BEGIN 11101100 


e] 
Y 


w uy ud uu su 
E E TA E 
NODODOSOSN 
Q0a0a0 0 4 Q 
UNO OD OD 
00 G6Gdqdáa da 
050089058 SAAAAADO AAIAAAAOS —SBAAAAAAA AAAAAASBOO ad Mm NM MT TI 
000719 BAAAAAAN BAHAAAAD BAHAAGOS BATA you uu uy 
BRBAHA AAA ARAS AAOO AAA AAA AAA AA ARO 0 a a a 
Adi AABAADASA ARAS AAA ATAR AAA A 
AROAA. ARAAAARAA ARA ADO AAA AAA AA AA CS: 
AdAdA ARAS ARA ARABIA AABT AAA AR A AR RE ER Er ERE 
AAA BAGDAD BATHAAAAR BAHT BATAN X Xx X XxX Xx Xx 
117100 500855950 SSAAAADO BOAAAAAA AO AAAADOS OU IO WA ul 
RZIPZFRZIPZRZEZ 
ZZZZZ ZZZZZZZZ ZZZZZ2Z2ZZ ZZZZZZZZ ZZZZZZZZ 
HAHAHAHA HAHAHAHA HAHAHAHA HAHAHAHA HAHAHAHA HO O 
amamna ananaaaan aaa aan Vw wo OOOO aa n a "nm 08 de mim Bl 
aaaar adaddiIaa adadxadaatr Aadaaadaaada adadaddldTl -. -. -. . . 
EFerrrerzrzrrerreretrerrerrrerirrererrretecrcrrccci + +0 +0 +0 +0 ++ 
jo o as La so o o AV La o ls o lo a IL o ds po o o ds dd ds a E E E E E E 
jafalalajalrgalajalalajalalajidajalalalalajeclalrgala lalola TE A 
NAINDP IS ANON + INiOP-1AACOUN+IONIOr10SAO0 0 + ANOTA NN SNS a 


505550590855505505050005005000505005805005 


Ta 
sad 
mor 

OPS ADO OSOS 

y 

MODA 


DODDRDDRDDIDARAODDOA DADA OOO ODO CO O O ON O O NO 


VARIABLES USADAS 


Almacena el tablero. 


— a$(21,32). 


— t. Color de la tinta del fantasma. 


— pas. Es un «switch» para saber si el PAC-MAN se ha comido una 
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pastilla. También cuenta el tiempo que ha pasado desde que se la 
comió. 

— p$. Carácter del PAC-MAN en un momento determinado. 

— X,y. Coordenadas del PAC-MAN. 

— fl,g1. Coordenadas del primer fantasma. 

— f2,g2.— Coordenadas del segundo fantasma. 

— récord. Puntuación más alta hasta el momento. 

— sx. Determina si el fantasma X perseguirá o no al PAC-MAN en 
esta iteración del bucle. 
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GENERALIDADES 


PRESENTACION DE LOS PROGRAMAS 


Al programa de fantasmas, poco más se le puede añadir en cuanto 
a la presentación. No ocurre lo mismo con los programas de juegos 
inteligentes, que se han presentado completamente «desnudos» pa- 
ra que usted los pueda «vestir» a su gusto. Ahí van algunas ideas: 
Para el programa del NIM se podría crear algún carácter gráfico 
que representara al objeto que se retira. De modo que en lugar de 
salir por pantalla el texto indicando el número de objetos que se 
retiran, saliera un «monstruito» que se los fuera llevando. Para 
hacer esto quizás necesitara limitar el número de objetos entre dos 
cantidades precisas. 

En lo que se refiere a los programas del Othello, aparte de que se 
les puede añadir colorido, el tablero podría ser el doble de grande, 
para ello sólo necesitará modificar las instrucciones en que aparez- 
can las sentencias PRINT o SCREENS, multiplicando por 2 las coor- 
denadas. Otra cosa que se podría hacer es crear un gráfico para 
cada bando (que puede estar formado por 4 si hace el tablero 
doble). Se podrían hacer muchas cosas más, pero considero que se 
debe evitar a toda costa redibujar el tablero cada vez que se cambia 
o se añade una ficha ya que entonces no se recuerda bien la posi- 
ción antigua. 

El siguiente programa nos permite realizar una buena presentación 
en el juego del Othello. Para ello lo haremos lo más parecido a la 
realidad. En él, cada ficha se divide en cuatro partes, la superior 
izquierda, la superior derecha, la inferior izquierda y la inferior dere- 
cha. Como se puede observar en el listado, en cada parte se definen 
también las líneas divisorias del tablero en el caso de que a esa 
parte le corresponda estar ya sea en un cuadrado inferior o en el 
lado izquierdo de la ficha. 

Se han definido 8 caracteres, de los cuales 4 pertenecen a las fichas 
blancas y 4 a las negras. Tenga en cuenta que en el listado sale el 
gráfico y que para que esto ocurra tiene que pulsar SHIFT-G y 
luego la letra correspondiente habiendo ejecutado previamente el 
programa hasta la línea 1360, ya que en caso contrario le aparecerá 
el carácter y no el gráfico. Para ello consulte la distribución de los 
gráficos que se da más adelante. 
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1 REM RARA ARA AER 
2 REM DIBUJO DEL TABLERO 
3 REM Rx AAA 
10 PAPER 4 
20 BORDER 4 
30 FOR iz24 TO 1756-24 STEP 16 
40 PLOT 64,i: DRA 123,0 
S0 NEXT i 
50 FOR iz564 TO 2556-64 STEP 16 
70 PLOT 1,24: DRA u,1l 
30 NEXT i 
ci ENT AT 2,7; "IE 
as UN AT 19,7; "ME 
110 FOR i¡=3 TO 13 
¿120 FRINT AT 1,7; "M0 ¡AT i,24; 00M 
130 NEXT i 
200 REM RRE RERAA AAA AEREA 
204 REM SUP, 120. FICHA BLANCA 
205 REM RARE REA RA 
210 CATA BIN 10000000 
220 CATA SIN 10000811 
230 CATA BIN 10001110 
240 CATA BIN 10011000 
250 CATA BIN 10110000 
250 CATA BIN 1l0110u0un 
270 CATA SIN 11100900 
230 CATA BIN 11100000 
300 REM RRA AA 
303 REM SUP. DER, FICHA BLANCA 
305 REM Reed rr AA 
310 CATA BIN 0000ana 
3520 CATA BIN 11000000 
330 CATA BIN 01110000 
348 CATA BIN (040011000 
350 CATA BIN 00081100 
350 CATA BIN 040001100 
370 CATA BIN 00000110 
350 CATA 6IN popOn110 
400 REM FERRERERERAA AER AAA 
¿02 REM INF. ¿D. FICHA BLANCA 
405 REM +iRerEREREARREEREARERAR 
310 CATA 5 11100000 
420 CATA EIN 11100000 
430 CATA 6IN 10110000 
4340 CATA EIN 10110000 
450 CATA EIN 10011000 
450 CATA BIN 10001110 
470 CATA EIN 120000011 
430 CATA BIN 11111111 
300 REM ++ ria trrrrtrz 
503 REM INF, DER. FICHAR ELÁNCA 
SOS REM +reirerrrirrtirrrirrrerz 
510 CATA EIN VQO0Vdenlio 
520 CATA S5IN 000001 lu 
S30 CATR ElN 40081100 
Ss¿i0 DATR BIN 000071100 
550 CATA BIN (Qunl1io000 
550 CATA B61N 011:0000 
S70 CATA EIN 11000000 
ES CATA GIN 11111111 


ITA LIO RA O AO UN OE DO A TUNA IT RASO DP 


e O CC a YY CIA 00 0% 00 E CO 06 04 el +] 4994024540474 5454 810101010101 01010 010 
05D AAA AGAIN ABAGASOUNE 


1000 


E AOS AS 
OSEA EA EAT 


PRrRRRERRRRRRRERERRRREA 
PEEREPPREREGOOa 


REM 


OD 
Dm 
42 
ID 


TDIDIDIT 


0 0100 000) + (> 0N 0) 00 00 0) 0) 
HHHHHHa [ok HHHHHIH 


IODQDUDODODOO 
ZZZZZZ AH VA ZZZZZZ 


MIDIDDDTI 
ZAR AAA 


REM 
REM 
REM 


Y La a ed da edu dla dd e Ed] 


ui 
“ IDIZIAZA RARA AAA 


Sd a 
43mn 


Mm 
“ADD: 


Cum 
4 m 15 


ZODREDIAZ DD AZ OD ANDO: 
M1 a 
ds ale al e Ue 


mecm: 
ma 


TIT TD 


mo 


EXA 


+ 


REFLLELRAR 
HA NEGRA 
REFAELARE 


+ 
0 0 + 0 
HH+ CT 
ZZx* D 
+. 
+ 
+ O 


+ PEREPEOSOG- 


EXFAARE AER 
CHA NEGRA 
EXAKEFRELARE 


+ 


Prerrer RPERRERRER RPEPRPREERPO 


pus 
a 


U 
H 
Z 


BIN 
FAR 
INF. 
FALSA 


+ PPEREPRPREO- 


+ 


+ Co 
+ T> 
+ Tio 
* + 
+*Z>0x4 
+ Mo 
+ Gi 
+*D>+ 
+ Tio 
+ 


GGOOrr+ He PRESO Ha PPREPPRPPOx* O 
2 OO ERPRRA Na PRPPSGCEOO:* Ha PREPPPPOOx Mx 


Ar 
¿a 
¿E 


FLEX EA 


INF. 


+ POERRRERRA: 


RÉF EEZ 
NEGRA 
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¿E 
mn. 
ER te DA O a Da RRA DARRO De 


cos 


EX 
SH 
ER 


Dres Te PRPRRERPRER* TA PRPRPReReRPRO* Te PROG Mar 
a A A lA 


SHA EPEOPPRPPRRPRe *PRPRPRPPROG*+ +PPRerrGGGQrx > 


ER 
a] 
pa] 


ORrRERRERA*- 
3 Es 
a 
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¡pRbRrRERAR O 
PER RR RR A 


HERA RE RARE RRA 
LECTURA FICHA BLANCA 
EEFIAEA AAA ARA ARA 
1= a Ta 

ATO 

RO CAY+I,CATO 


TEN 
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H 
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CES +I,DATO 


MR 


ha 
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Hx 4 


On HCO Ma HCOM HOOD Mo Mak 


TO 7 
0 
"G"+I1,DATO 


0 
0 "H"+I,DATO 
EXRRRARA RARA RANA REA RAR 


SITUACION INICIAL 
EXRAAAREAREREER A RAR AAA 


PRINT AT 12,14," 
STOF 


PereeorRobioRbooboberebrRerRRERRRRRAR 
NAINPPA E E 0 Gs 0 Ly ds 0 CS PO OO POD O PUTO OO O 


PEDIDO? GOA CUNA IDR SDITNPAUNDRAAR 
Ao lora ocre ooo A 


REM 
Eu A O ONO EXEXEL 
RLITINA_ PARA CONVERSION 
DE COORDENADAS. SE _SU- 
CENA- 


DAS DEL PROGRAMA ORIGI 
NAL, SE ENCUENTRAN EN 
LAS VARIABLES xXx E Y. 


1515 REM RF EAARARE 
1520 REM 

1530 PRINT AT. 2%xX4+1,2i14+5B;" 

1540 PRIMNT AT 23x4+2,2%4+5," 


Distribución de los caracteres gráficos 


FICHA BLANCA: 


A => Superior izquierda 
B > Superior derecha 
C => Inferior izquierda 
D => Inferior derecha 


FICHA NEGRA: 


E > Superior derecha 
F => Superior izquierda 
G -> Inferior izquierda 
H > Inferior derecha 
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Para adaptar el programa al juego del Othelo dispone de una subru- 
tina que se encuentra en la línea 1510 que habrá de llamarse cada 
vez que se quiera dibujar una ficha en el tablero en la posición X,Y. 
Tendrá que hacerse otra igual para la ficha negra. Y por último no 
se podrá usar SCREEN$ en la búsqueda, pero esto no es problema 
ya que ya hemos visto cómo guardar un tablero en el ordenador 
con ayuda de una matriz de caracteres. 

Una vez haya introducido el programa, ejecútelo, y el tablero le 
quedará así: 


CARATULAS Y GRAFICOS 


Si usted quiere comercializar sus programas tendrá que presentarlos 
de una forma atractiva, con una buena presentación, y lo que es 
también muy importante, con una buena portada (aunque es un 
engorro a la hora de cargarlo, ¿no?). Para realizar las portadas 
disponemos de programas comerciales que en esencia son pareci- 
dos al que se presenta en la página 5 que mueve el cursor por la 
pantalla aunque incorporan muchas más cosas, como por ejemplo 
llenar de color una figura, ampliarla, reducirla, trasladarla, etc. Dado 
que incorporan la facilidad de grabar la pantalla, usted puede hacer- 
se sus dibujos y luego grabarlos en cassette o microdrive para que 
se incorporen a su programa como carátula. Con estos programas 
se pueden realizar dibujos muy completos. ¿Qué le parece este 
cuyo título podría ser: «El mejor programa de Europa»? 
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Para incorporar la carátula a su programa es muy sencillo. Primero 
usted crea el dibujo usando los medios que sean y luego lo graba 
en cinta con un nombre, por ejemplo «dibujo» del siguiente modo: 


SAVE "DIBUJO" SCREEN$ 
O si es para microdrive: 
SAVE *"m';1;“dibujo” SCREENS 


Si su programa se llama «programa» deberá crear otro programa 
que haga lo siguiente: 


10 LOAD "DIBUJO" SCREENS$ 
20 LOAD "PROGRAMA" 


y grabarlo del siguiente modo: 
SAVE "cargador" LINE 10 


El orden en la cinta debe ser: Primero «cargador», luego «dibujo», 
y por último programa. De este modo tenemos una carátula y un 
dibujo que nos distrae mientras «programa» se está cargando. 
El problema de esto es que perdemos alrededor de dos minutos y 
medio esperando que se cargue «dibujo». 

Para solucionar esto podemos crear un programa que nos haga el 
dibujo y que sea más corto de cargar que el dibujo en sí. Por 
ejemplo este programa es muy efectivo y sólo tiene 18 líneas: 
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255 STEP a 
¿-129+1,87 
TO 255 STEP a 
R 1;i,175 
TO_255 STEP a 
z ¿=128+i,-87 
y: 255 STEP a 


5,175 
ER 1) -255+i,-175 


”. 


061 - Cru 


Da) 
E 


ZOUTZOD"N 
MIFOMDT O 
DXDODXICGO 
a E A E 


pa “u 

m [a] 

x 

5] 
“Om Ou” 


CcUG CUG CC: 6 


PbereereReRP 
00 107010 Mw 0 DH Pe 


6506660560060 000060E 


Cambiando los valores de a en las líneas 10,50,90 y 150 obtendre- 
mos cosas como éstas: 


NN 
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Para aquellos que se hayan entretenido en observar los programas 
de la cinta HORIZONS que viene con el Spectrum observarán que 
en todos los programas viene una rutina para modificar los caracte- 
res, que nos permite hacer cosas como ésta: 


NS 


A A | 


Esta rutina se compone de dos partes, una en código máquina que 
se carga alrededor de la dirección 32000 y otra parte en BASIC que 
envía los parámetros a la rutina. Para usarla sólo tiene que grabar 
en su Spectrum la parte de BYTES del primer programa posicionan- 
do la cinta justo antes y escribiendo: 


LOAD "" CODE 


Luego observar el programa en BASIC que le precede. Y verá que 
hay parámetros para centrar el texto, tamaño de letra tanto horizon- 
tal como vertical (factor multiplicador), posición de comienzo y la 
frase en sí que se deposita en la variable D$. Luego hay una subru- 
tina que le pasa los parámetros a la memoria para que la subrutina 
en código máquina escriba la frase. Es muy efectivo y rápido y 
soluciona el problema de los títulos. 


ACELARACION DE PROGRAMAS 


Para que los programas corran más rápidamente hay que seguir 
una serie de reglas. Estas reglas acostumbran a ser contrarias a la 
buena estructuración del programa, pero no estará de más disponer 
de las dos versiones. 
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Lo primero que debe hacer es suprimir todas las subrutinas e incluir- 
las en el sitio en que son llamadas. En caso de que tenga que 
poner alguna, bien porque no dispone de suficiente memoria, bien 
porque es llamada «en muchas partes del programa, colóquelas 
siempre al principio, pues es por el principio por donde el ordenador 
empieza a buscar el número de línea de la rutina a la que se ha 
llamado. 

Otra cosa que enlentece a los programas son las sentencias REM, 
deberá suprimirlas todas, o al menos procurar que no se ejecuten. 
Aunque esto último es un mal menor ya que cuanto más largo es 
el programa (incluidas las sentencias REM ejecutables o no), más 
tarda en encontrar una línea. 

Por lo dicho en el párrafo anterior, también será importante, com- 
pactar al máximo el programa, es decir, colocar el máximo de sen- 
tencias posibles con el mismo número de líneas. Si hace esto tenga 
cuidado con las sentencias IF...THEN, ya que si no se cumple la 
condición, no se ejecutará nada de lo que haya en la línea. 

En cuanto a las variables, hay que usar las menos posibles, procu- 
rando utilizar las que se hayan creado si no hace falta que continúen 
guardando su valor. También es interesante, pero en mucha menor 
medida, que los nombres de las variables tengan el mínimo número 
de caracteres. Tenga presente que el trabajo con matrices es mucho 
más lento para el ordenador que el trabajo con variables normales. 
Otra cosa interesante con respecto a las variables es el hecho de 
inicializarlas (darle valor por primera vez) en un orden determinado: 
primero las que se utilicen más veces en el programa, y luego las 
que se utilicen menos veces, ya que ocurre algo similar a los GOTOs 
y GOSUBs, y es que cuando hay que usar una variable se empieza 
a buscar por las primeras. 

Por último procure utilizar lo menos posible las sentencias IF inten- 
tando sustituirlas por operadores lógicos, tal como se hizo en la 
rutina de puntuación del juego del 15. 


USO DE LOS MANDOS DE JUEGO 
(JOYSTICK) 


Para cambiar un programa que hace las entradas por teclado y 
adaptarlo al joystick lo primero que tiene que saber es qué puerto 
de entrada usa el mando que usted tiene. Si es un joystick de 
cursor y su programa usaba las flechas para mover objetos, enton- 
ces no tendrá que hacer ningún tipo de adaptación. En caso contra- 
rio, deberá cambiar las instrucciones de entrada. Normalmente estas 
instrucciones son del tipo: 


IP INKEYS$=...THEN.. 


89 


Y usted deberá cambiarlas por instrucciones como: 
IF IN xxxxx=... THEN... 


Donde xxxxx se refiere al puerto de entrada para el que está progra- 
mado su interface. 
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OTROS TÍTULOS PARA EL 
SPECTRUM DE EDITORIAL 
NORAY, S.A. 


ZX SPECTRUM - QUÉ ES, PARA QUÉ SIRVE Y CÓMO SE USA 
por Tim Langdell 


Este manual es el libro indispensable para todo aquél que 
quiera conocer el fantástico mundo de este ordenador. Empie- 
za en cómo conectarlo y acaba dejando al lector en un grado 
más que elevado para llevar el Spectrum al máximo. Adaptado 
al Spectrum + y Spectrum normal. 


PROFUNDIZANDO EN EL ZX SPECTRUM 
por Dilwyn Jones 


Para los que no se conformen con los manuales, este libro 
profundiza en los secretos del ZX Spectrum. Tanto si quiere 
profundizar en el ROM, como si quiere divertirse con un juego 
en tres dimensiones, en este título encontrará toda la informa- 
ción necesaria. 


ZX SPECTRUM, APLICACIONES PARA LA CASA Y LOS 
PEQUENOS NEGOCIOS 
por Chris Callender 


El ZX Spectrum es un ordenador que no sólo sirve para juegos. 
En esta obra se explican quince programas prácticos para el 
hogar y el negocio. Directorios, contabilidad, gráficas, stocks, 
calendario, etc. 


SOFTWARE: CINTA CASSETTE INCLUYENDO LOS 15 
PROGRAMAS QUE SE TRATAN EN EL LIBRO «ZX SPECTRUM, 
APLICACIONES PRÁCTICAS PARA LA CASA Y LOS PEQUEÑOS 
NEGOCIOS». 


CÓMO CREAR TUS PROPIOS JUEGOS PARA EL ZX SPECTRUM 
por Ramón Rovira (en preparación) 


Este libro está concebido para que cada uno pueda diseñarse 
sus propios juegos y no tenga que conformarse en copiar y 
jugar con los ya clásicos y repetitivos. De forma clara y con 
ejemplos prácticos enseña a diseñar juegos inteligentes, de 
aventuras, marcianos, etc. 


18 JUEGOS DINÁMICOS PARA TU DRAGON 
por Pierre Montsaut 


En esta obra se presenta una colección de 18 juegos programa- 
dos en Basic. En los diferentes juegos se utilizan las funciones 
propias del microordenador, sonido, color, gráficos de alta re- 
solución, etc. Después de una introducción al juego, se expli- 
can posibles modificaciones para adaptarlo al estilo de cada 
jugador. 


DICCIONARIO MICROINFORMÁTICO 
por Ramón Tapias 


Esta obra es un elemento indispensable para todo aquél que 
se lanza al mundo de la informática y debe aclarar conceptos 
o que debido a la falta de bibliografía en nuestra lengua se ve 
obligado a consultar obras en inglés. 

De forma clara y razonada, va analizando uno a uno los princi- 
pales vocablos de este fascinante mundo. 

Contiene un vocabulario Inglés/Español. 


EDITORIAL NORAY, S.A. 
San Gervasio de Cassolas, 79 
Barcelona 


La mayoría de los usuarios de 
microordenadores dedican la 
mayor parte del tiempo al ocio 
que aportan los juegos. Muchas 
veces los juegos que se 
encuentran en el mercado no se 
adaptan a los gustos o 
necesidades propias de cada 
usuario, 0 bien llegan a hacerse 
monótonos cuando se han 
practicado varias veces. 


Pensando en todo esto, el autor 
ha concebido este libro para que 
cada uno pueda crear sus propios 
juegos o bien adaptar los ya 
existentes. 


Jugar y aprender podría ser el 
subtítulo de la obra ya que en el 
libro se repasa la teoría de la 
programación y los trucos más 
adecuados para los juegos. 


En este libro el lector encontrará 
la explicación de cómo hacerse 
sus juegos desde el más sencillo 
(NIM), pasando por complicados 
juegos inteligentes para acabar 
con los clásicos juegos gráficos de 
fantasmas o marcianos. 


